R/utils.R

In partialised: Partialised Functions

Defines functions big_mark cat_line

cat_line <- function(...) {
  cat(paste0(..., "\n", collapse = ""))
}

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

Try the partialised package in your browser