context(desc = "Test prepare_covariates functions")
main1 <- file.path(tempdir(), "testing1")
main2 <- file.path(tempdir(), "testing2")
main3 <- file.path(tempdir(), "testing3")
test_that(desc = "prepare_covariates", {
skip_on_cran()
covs <- prepare_covariates(main = main3)
expect_is(covs, "data.frame")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.