test_survey <- retroharmonize::read_rds (
file = system.file("examples", "ZA7576.rds",
package = "retroharmonize"),
id = "test"
)
example_metadata <- metadata_create (survey_list = test_survey)
trust_media_metadata <- example_metadata[27,]
test_that("val label collection works", {
expect_equal(collect_val_labels(metadata = trust_media_metadata ),
c("Tend to trust", "Tend not to trust", "DK"))
expect_equal(collect_na_labels(metadata = trust_media_metadata ),
c("Inap. (not CY-TCC in isocntry)"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.