Nothing
context("Revenue foregone")
test_that("Value of revenue_foregone", {
Feed <- capture.output({
library(data.table)
dt <- data.table(new_tax = rep(1, 100),
baseline_tax = integer(100),
WEIGHT = 1)
expect_equal(as.double(revenue_foregone(dt)), 100)
expect_equal(as.double(revenue_foregone(dt, revenue_positive = FALSE)), -100)
dt[, WEIGHT := 1e6]
expect_output(print(revenue_foregone(dt)), '[1] "$100 million"', fixed = TRUE)
expect_equal(print.revenue_foregone(revenue_foregone(dt, FALSE)),
paste0("\u2212", "$100 million"))
dt[, WEIGHT := 2.25e7]
expect_output(print(revenue_foregone(dt)), '[1] "$2.2 billion"', fixed = TRUE)
expect_equal(print.revenue_foregone(revenue_foregone(dt, FALSE)),
paste0("\u2212", "$2.2 billion"))
dt[, WEIGHT := 2.25e8]
expect_output(print(revenue_foregone(dt)), '[1] "$22 billion"', fixed = TRUE)
expect_equal(print.revenue_foregone(revenue_foregone(dt, FALSE)),
paste0("\u2212", "$22 billion"))
dt[, WEIGHT := 2.0155e8]
expect_equal(print.revenue_foregone(revenue_foregone(dt, TRUE, digits = 6)),
paste0("$20.155 billion"))
})
})
test_that("latex output produces LaTeX escaped $", {
# Purely to avoid polluting the devtools::test()
# progress.
Feed <- capture.output({
skip_if_not_installed("knitr")
skip_if_not_installed("withr")
withr::with_envvar(c("_R_GRATTAN_MOCK_KNITR_LATEX_" = "true"), {
library(data.table)
dt <- data.table(new_tax = rep(1, 100),
baseline_tax = integer(100),
WEIGHT = 2e7)
expect_equal(print.revenue_foregone(revenue_foregone(dt)),
"\\$2~billion")
})
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.