context("Compiled code and wrapper functions")
## -----------
## groupProgID
## -----------
test_that("groupProgID works", {
## integers (with NA)
expect_identical(groupProgID(rep( c(1:3, NA), each = 3)),
c(rep(c(1:3), 3), rep(NA, 3)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.