con <- connect_to_etn()
test_that("list_animal_project_codes() returns unique list of values", {
vector <- list_animal_project_codes(con)
expect_type(vector, "character")
expect_false(any(duplicated(vector)))
expect_true(all(!is.na(vector)))
expect_true("2014_demer" %in% vector)
# Should not include network or cpod projects
expect_false("demer" %in% vector)
expect_false("cpod-lifewatch" %in% vector)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.