A wrapper function to make strwrap() return a character vector of the same
length as the input vector; each element of the output vector is a string
formed by concatenating wrapped strings by \n.
str_wrap(...)Arguments passed to strwrap().
A character vector.
x = sample(c(letters, " "), 200, TRUE, c(rep(0.5/26, 26), 0.5))
x = rep(paste(x, collapse = ""), 2)
strwrap(x, width = 30)
#> [1] "prj adxh d ky miq yxdb u tk" "smmsw hw ug d k s o zt f pja"
#> [3] "y i e y n csf o sgr d vbq ei" "f y n x jbq qt c jbh vu vwhj"
#> [5] "c b w t aj rp jg ed w z ayq" "ib"
#> [7] "prj adxh d ky miq yxdb u tk" "smmsw hw ug d k s o zt f pja"
#> [9] "y i e y n csf o sgr d vbq ei" "f y n x jbq qt c jbh vu vwhj"
#> [11] "c b w t aj rp jg ed w z ayq" "ib"
xfun::str_wrap(x, width = 30) # same length as x
#> [1] "prj adxh d ky miq yxdb u tk\nsmmsw hw ug d k s o zt f pja\ny i e y n csf o sgr d vbq ei\nf y n x jbq qt c jbh vu vwhj\nc b w t aj rp jg ed w z ayq\nib"
#> [2] "prj adxh d ky miq yxdb u tk\nsmmsw hw ug d k s o zt f pja\ny i e y n csf o sgr d vbq ei\nf y n x jbq qt c jbh vu vwhj\nc b w t aj rp jg ed w z ayq\nib"