context("Survey pooling and PooledSurvey methods")
srv <- readRDS(system.file("tests", "testthat", "testSurvey.RDS",
package = "monkeywrangler"))
test_that("Surveys can be pooled without error",
expect_is(PooledSurvey(one = srv, two = srv), "PooledSurvey"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.