context("texNum return correct")
test_that("texNum returns known results", {
expect_equal(texNum(180000), "180,000")
expect_equal(texNum(1800000), "1.8~million")
expect_equal(texNum(1850000), "1.85~million")
expect_equal(texNum(1850000, 2), "1.8~million")
expect_equal(texNum(1850000, 2, TRUE), "\\$1.8~million")
expect_equal(texNum(-1850000, 2, TRUE), "$-$\\$1.8~million")
expect_equal(texNum(-5), "$-$5")
expect_equal(texNum(500e6 - 1, pre.phrase = c("almost", "over")), "almost 0.5~billion")
expect_equal(texNum(500e6, pre.phrase = c("almost", "over")), "0.5~billion")
expect_equal(texNum(500e6 + 1, pre.phrase = c("almost", "over")), "over 0.5~billion")
expect_true(texNum(380e9) %in% c("380~billion", "0.38~trillion"))
expect_true(texNum(380e9 - 1, pre.phrase = c("X", "Y")) %in% c("X 380~billion", "X 0.38~trillion"))
expect_true(texNum(380e6) %in% c("380~million", "0.38~billion"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.