context("SummaryDemographicArray-methods")
test_that("metadata works", {
metadata <- dembase:::metadata
x <- Counts(array(rpois(n = 120, lambda = 1:12),
dim = c(2, 2, 3, 10),
dimnames = list(region = c("Region 1", "Region 2"),
sex = c("Male", "Female"),
age = c("0-4", "5-9", "10+"),
iteration = 1:10)))
sx <- summary(x)
expect_identical(metadata(sx), sx@metadata)
x <- Counts(array(0, dim = 0, dimnames = list(sex = NULL)))
sx <- summary(x)
expect_identical(metadata(sx), sx@metadata)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.