Format helper

[hadley]

Something like this:

big_mark <- function(x, digits = 2) {
  x <- round(x, digits)
  mark <- if (identical(getOption("OutDec"), ",")) "." else ","
  format(x, big.mark = mark, scientific = FALSE)
}
big_mark(1234 + 1/3, digits = 2)
big_mark(1234 + 1/3, digits = 0)
big_mark(1234 + 1/3, digits = -1)