R/split_label.R

split_label <- function (x) {
  x <- stringr::str_replace_all(x, "_", " ")
  lapply(strwrap(as.character(x), width = 15, simplify = FALSE),
         paste, collapse = "\n")
}
johnaclouse/eeda documentation built on July 22, 2022, 12:16 a.m.