format_number(c(1/3, 0, 0.999, NA, NaN, Inf, -Inf))
format_number(c(1L, 2L, 1001L))
format_number(1001L, bigmark = FALSE)
# Set `friendlynumber.numeric.digits` to control the decimal output
opts <- options()
options(friendlynumber.numeric.digits = 2)
format_number(1234.1234)
options(opts)
if (requireNamespace("bignum", quietly = TRUE)) {
format_number(bignum::bigfloat(1234.1234))
format_number(bignum::biginteger(2000000))
# Set `friendlynumber.bigfloat.digits` to control the decimal output
opts <- options()
options(friendlynumber.bigfloat.digits = 3)
format_number(bignum::bigfloat(1234.1234))
options(opts)
}
Run the code above in your browser using DataLab