example_survey <- survey(
object =data.frame (
rowid = 1:6,
observations = runif(6)),
id = 'example',
filename = "no_file"
)
test_that("correct casting", {
expect_true(inherits(example_survey, "survey"))
expect_true(is.survey(example_survey))
expect_equal(attr(example_survey, "filename"), "no_file")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.