context("test-covariate_services.R")
test_that("get_covariates works", {
result <- get_covariates(conn)
expect_is(result, "list")
})
test_that("get_covariate works", {
# IF THIS FAILS TRY DIFFERENT ID (MAKE SURE IT EXISTS IN PROJECT)
result <- get_covariate(id = 2, conn = conn)
expect_is(result, "list")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.