R/wordwrap.R

wordwrap <-
function(s, width=20, break.word=FALSE){
  if(!break.word) {
    wrapped=paste(strwrap(s,width),collapse="\n")
  } else     wrapped=strfit(s,width)
  return(wrapped)
}
mmoisse/pathview documentation built on May 9, 2019, 5:53 a.m.