context("cpe functions")
#### Internal functions
# x <- LastDownloadCPEDate()
#
# test_that("check LastDownloadCPEDate output",{
# expect_true(exists("x"))
# expect_false(is.null(x))
# expect_is(x, "character")
# })
# rm(x)
#
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.