R/misc.R

Defines functions formatText

#' @importFrom utils capture.output
formatText <- function(text, n = 20L, truncated = "<...>") {

  result <- if (nchar(text) < n)
    text
  else
    paste(text, truncated)

  encodeString(result)
}
rstudio/rstudioapi documentation built on March 29, 2024, 2:34 p.m.