if (FALSE) {
study_data <- readRDS(system.file("extdata", "ship.RDS", package = "dataquieR"))
meta_data <- readRDS(system.file("extdata", "ship_meta.RDS", package = "dataquieR"))
# Segment level
int_duplicate_content(
level = "segment",
study_segment = c("INTRO", "INTERVIEW"),
study_data = study_data,
meta_data = meta_data
)
# Studies or data frame level
study_tables <- list(
"sd1" = readRDS(system.file("extdata", "ship.RDS", package = "dataquieR")),
"sd2" = readRDS(system.file("extdata", "ship.RDS", package = "dataquieR"))
)
int_duplicate_content(
level = "dataframe",
study_segment = c("sd1", "sd2"),
study_data = study_tables,
meta_data = meta_data
)
}
Run the code above in your browser using DataLab