context("schambach_figure tests")
test_that("schambach_figure should return list of tables", {
figs <- schambach_figure(
mapvizieR_obj = mapviz,
measurementscale_in = 'Reading',
studentids_in = c(paste0('F0800000', 1:9), paste0('F080000', 10:99)),
subgroup_cols = c('grade', 'studentgender', 'studentethnicgroup'),
pretty_names = c('Grade', 'Gender', 'Ethnicity'),
start_fws = 'Fall',
start_academic_year = 2013,
end_fws = 'Spring',
end_academic_year = 2013
)
expect_equal(length(figs), 3)
expect_true("grob" %in% class(figs))
expect_true("gtable" %in% class(figs))
expect_true("gDesc" %in% class(figs))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.