Nothing
context("test snake_case_dimension")
test_that("snake_case_dimension works", {
st <- star_schema(mrs_age_test, dm_mrs_age)
d <- snake_case_dimension(st$dimension$when)
expect_equal(sort(colnames(d)), c("week", "week_ending_date", "when_key", "year"))
})
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.