R/utils.R

Defines functions cat_line_subtle big_mark

big_mark <- function(x, ...) {
  mark <- if (identical(getOption("OutDec"), ",")) "." else ","
  formatC(x, big.mark = mark, ...)
}

cat_line_subtle <- function(...) {
  cli::cat_line(pillar::style_subtle(paste0(...)))
}
UchidaMizuki/partialised documentation built on July 17, 2025, 12:10 a.m.