context("running roster prep on sample data provided by NWEA")
test_that("prep_roster correctly preps sample data", {
samp_roster <- prep_roster(ex_CombinedStudentsBySchool)
expect_equal(check_roster(samp_roster), TRUE)
expect_is(samp_roster$grade, "integer")
#regexp is - through 12
expect_match(unique(samp_roster$grade) %>% as.character(), "^([0-9]|1[0-2])$")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.