context("surveys")
test_that("surveys() gives expected output", {
svy_tbl <- surveys()
expect_named(svy_tbl, c("id", "name", "owner_id", "last_modified",
"is_active"), ignore.order = TRUE)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.