Nothing
context("test star_schema")
test_that("star_schema works", {
st <- star_schema(mrs_age_test, dm_mrs_age)
expect_equal(nrow(st$fact$mrs_age), nrow(mrs_age_test))
expect_equal(nrow(st$dimension$when), 4)
expect_equal(nrow(st$dimension$when_available), 6)
expect_equal(nrow(st$dimension$where), 3)
expect_equal(nrow(st$dimension$who), 5)
})
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.