Nothing
require(dplyr)
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))
metadata <- metadata_waves_create(example_surveys )
to_harmonize <- metadata %>%
filter ( var_name_orig %in%
c("rowid", "w1") |
grepl("trust ", label_orig ) ) %>%
mutate ( var_label = var_label_normalize(label_orig)) %>%
mutate ( var_name = val_label_normalize(var_label))
test_that("correct structure is returned", {
expect_equal(length(
merge_waves ( example_surveys, to_harmonize )), 3)
expect_true(is.list(
merge_waves ( example_surveys, to_harmonize )))
})
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.