context("test nice_things.R")
# nice_estimate
test_that("nice_estimate returns expected values", {
expect_equal(nice_estimate(0.9, 0.8001, 0.95) , "0.9 (95% CI:0.8-0.9)")
})
# nice_perc
test_that("nice_perc returns expected values", {
expect_equal(nice_perc(5,10), "50.0")
expect_equal(nice_perc(0.0000001,10), "<0.1")
})
# nice_pval
test_that("nice_pval returns expected values", {
expect_equal(nice_pval(0.04916503), "0.049")
expect_equal(nice_pval(0.00001943), "< 0.001")
})
# nice_inline_r
test_that("nice_inline_r returns expected value", {
expect_equal(nice_inline_r("round(3.77155454, 3)"),
"``` `r round(3.77155454, 3)` ```")
})
# nice_govuk_date
test_that("nice_gov_uk returns expected value", {
expect_equal(nice_govuk_date(as.Date("01-01-1979", "%d-%m-%Y")),
"01 January 1979")
expect_error(nice_govuk_date("01-01-1979"))
})
# nice_pc_change
test_that("nice_pc_change returns expected value", {
expect_equal(nice_pc_change(start = 5, end = 10), 50)
expect_error(nice_pc_change(start = "5", end = 10))
expect_error(nice_pc_change(start = 5, end = "10"))
})
# nice_rversionstring
test_that("nice_rversionstring returns expected value", {
expect_true(is.character(nice_rversionstring()))
expect_equal(substr(nice_rversionstring(), 1, 10), "R version ")
})
# up_or_down ####
test_that("up_or_down returns expected values",{
expect_equal(up_or_down(100, 200), "increase")
expect_equal(up_or_down(200, 100), "decrease")
expect_equal(up_or_down(100, 100), "no change")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.