Nothing
examples_dir <- system.file( "examples", package = "retroharmonize")
my_rds_files <- dir( examples_dir)[grepl(".rds",
dir(examples_dir))]
example_surveys <- read_surveys(file.path(examples_dir, my_rds_files))
documented <- document_waves ( example_surveys )
test_that("correct attributes are returned", {
expect_equal(documented$id, c("ZA5913", "ZA6863", "ZA7576"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.