R/muskelwrap.R

In Rapporteket/muskel: Resultatrapporter for Muskelregisteret

#' Automatisk linjebryting av lange tekstetiketter
#'
#' Denne funksjonen tar som input en vektor med streng-elementer og returnerer
#' en
#'
#' @param x En tekststreng eller vektor av tekststrenger
#' @param len Lengden strengen skal brytes ved
#'
#' @return En tekststreng med tekstbrudd på angitt lengde
#'
#' @export
#'

# Core wrapping function
wrap.it <- function (x, len) {
  sapply(
    x,
    function(y) paste(strwrap(y, len), collapse = "\n"),
    USE.NAMES = FALSE
  )
}