R/utils.R

Defines functions big_mark subtle_comment

subtle_comment <- function(...) {
  pillar::style_subtle(paste0("# ", ...))
}

big_mark <- function(x, ...) {
  mark <- if (identical(getOption("OutDec"), ",")) "." else ","
  formatC(x, big.mark = mark, ...)
}
UchidaMizuki/navigatr documentation built on June 14, 2025, 9:59 p.m.