Nothing
context("test new_dimension_table")
test_that("new_dimension_table works", {
dim <-
new_dimension_table(mrs_age_test[, dm_mrs_age$dimension[[3]]], names(dm_mrs_age$dimension)[3])
res <-
structure(
list(
where_key = 1:3,
REGION = c(1L, 1L, 9L),
State = c("CT",
"CT", "WA"),
City = c("Bridgepor", "Bridgeport", "Tacoma")
),
row.names = c(NA,
3L),
class = c("dimension_table", "tbl_df", "tbl", "data.frame"),
name = "where",
type = "general"
)
expect_equal(dim, res)
})
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.