R/wordwrap.R

In datapplab/pathview: a tool set for pathway based data integration and visualization

Defines functions wordwrap

Documented in wordwrap

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)
}