tests/testthat/helper.R

local_colors <- function(colors = 256, .local_envir = parent.frame()) {
  withr::local_envvar(
    list(R_CLI_NUM_COLORS = as.character(colors)),
    .local_envir = .local_envir
  )
}
gaborcsardi/crayon documentation built on Nov. 10, 2023, 9:15 a.m.