R/break.labels.R

In haberdashPI/wright.lab.util: A set of utilitiy functions used in our lab.

Defines functions break.labels

Documented in break.labels

break.labels <- function(labels,label.width){
  sapply(labels,function(label){
    Reduce(function(x,y){paste(x,y,sep="\n")},
           strwrap(label,label.width))
  })
}