Insert linebreaks in a string (for wrapping labels)

foldText.R

foldText <- function(x, n) {
  x <- gsub(paste0('([^\n]{1,',n,'})(\\s|$)'), '\\1\n', x)
  ## Remove line-breaks (one or more) at first/last positions
  x <- gsub('^(\n)+|(\n)+$', '', x)
  x
}

## Examples 
txt <- c("Hello my name is Andy", 
         "Oh when the Saints go marching in", 
         "The quick brown fox jumped over the lazy brown dog", 
         "Hi")

foldText(txt,30)

foldText(txt,10)

foldText(txt,2)