Nothing
context("test modify_dimension_records")
test_that("modify_dimension_records works", {
st <-
modify_dimension_records(st_mrs_age_test, updates_st_mrs_age_test)
expect_equal(
st$dimension$who$age_range,
c(
"1: <1 year",
"2: 1-24 years",
"3: 25-44 years",
"4: 45-64 years",
"5: 65+ years"
)
)
expect_equal(st$dimension$when_common$date,
structure(c(
-2917,-2916,-2910,-2903,-2898,-2895,-2892
), class = "Date"))
expect_equal(st$dimension$where$city,
c("Bridgeport", "Tacoma"))
})
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.