dollar_format()(c(-100, 0.23, 1.456565, 2e3))
dollar_format()(c(1:10 * 10))
dollar(c(100, 0.23, 1.456565, 2e3))
dollar(c(1:10 * 10))
dollar(10^(1:8))
usd <- dollar_format(prefix = "USD ")
usd(c(100, -100))
euro <- dollar_format(prefix = "", suffix = "\u20ac")
euro(100)
finance <- dollar_format(negative_parens = TRUE)
finance(c(-100, 100))
Run the code above in your browser using DataLab