R/fct_wrap.R

In philstraforelli/forcatsmisc: Additional functions for forcats

#' Wrap factor levels into nicely formatted paragraphs
#'
#' @param f A factor variable with long levels
#' @param ... Arguments passed on to `stringr::str_wrap()`
#'
#' @return A factor variable with re-wrapped levels
#' @importFrom stringr str_wrap
#' @export
#'
#' @examples
#' var <- factor(c("a very, very, very, very long factor level",
#'                 "an even longer, unbelievably longer, factor level"))
#' fct_wrap(var, width = 10)

fct_wrap <- function(f, ...) {
  levels(f) <- str_wrap(levels(f), ...)
  f
}