R/utils.R

big_mark <- function (x, ...) {
  mark <- if (identical(getOption("OutDec"), ",")) "." else ","
  formatC(x, big.mark = mark, ...)
}
UchidaMizuki/econutil documentation built on June 6, 2023, 1:12 a.m.