Two functions for wrapping strings in R

StringWrap.R

# String wrapping for a set of strings
wrap_strings <- function(vector_of_strings,width){
  sapply(vector_of_strings,FUN=function(x) {paste(wrap_sentence(x,width=width))})
}

# Wraps a single sentence
wrap_sentence <- function(string, width) {
  words <- unlist(strsplit(string, " "))
  fullsentence <- ""
  checklen <- ""
  for(i in 1:length(words)) {
    checklen <- paste(checklen, words[i])
    if(nchar(checklen)>(width+1)) {
      fullsentence <- paste0(fullsentence, "\n")
      checklen <- ""
    }
    fullsentence <- paste(fullsentence, words[i])
  }
  fullsentence <- sub("^\\s", "", fullsentence)
  fullsentence <- gsub("\n ", "\n", fullsentence)
  return(fullsentence)
}