R/labelbreaker.r

In AndreasFischer1985/quantqual: Software package for analyzing quantitative and qualitative data.

#' Function textbreaker
#' 
#' Adds linebreaks to each element of a character vector.
#' @details Adds linebreaks to each element of a character vector.
#' @keywords helper
#' @export
#' @examples
#' textbreaker("hello world hello world hello world hello world")

labelbreaker <- function (x, length = 30, separator = "\n     ", trim = F, ...) 
{
    el = list(...)
    if (length(el$maxlength) > 0) 
        length = el$maxlength
    e = character(0)
    for (i in x) e = c(e, textbreaker(i, length, ..., separator = separator, 
        trim = trim))
    return(e)
}