Insert "\n" after the k'th character in a string. This IS vectorized, so can receive just one or many character strings in a vector.

If a string is long, insert linebreak "\n"

stringbreak(x, k = 20)

Arguments

x

Character string.

k

Number of characters after which to insert "\n". Default is 20

Value

Character with "\n" inserted

Details

If x is not a character string, x is returned without alteration. And without a warning

Author

Paul Johnson <pauljohn@ku.edu>

Examples

x <- "abcdef ghijkl mnopqrs tuvwxyz abc def ghi jkl mno pqr stv"
stringbreak(x, 10)
#>             abcdef ghijkl mnopqrs tuvwxyz abc def ghi jkl mno pqr stv 
#> "abcdef ghi\njkl mnopqr\ns tuvwxyz \nabc def gh\ni jkl mno \npqr stv" 
stringbreak(x, 20)
#>       abcdef ghijkl mnopqrs tuvwxyz abc def ghi jkl mno pqr stv 
#> "abcdef ghijkl mnopqr\ns tuvwxyz abc def gh\ni jkl mno pqr stv" 
stringbreak(x, 25)
#>       abcdef ghijkl mnopqrs tuvwxyz abc def ghi jkl mno pqr stv 
#> "abcdef ghijkl mnopqrs tuv\nwxyz abc def ghi jkl mno \npqr stv" 
x <- c("asdf asdfjl asfdjkl asdfjklasdfasd", "qrweqwer qwerqwerjklqw erjqwe")
stringbreak(x, 5)
#>               asdf asdfjl asfdjkl asdfjklasdfasd 
#> "asdf \nasdfj\nl asf\ndjkl \nasdfj\nklasd\nfasd" 
#>                    qrweqwer qwerqwerjklqw erjqwe 
#>        "qrweq\nwer q\nwerqw\nerjkl\nqw er\njqwe"