if (FALSE) {
study_tables <- list(
"sd1" = readRDS(system.file("extdata", "ship_subset1.RDS",
package = "dataquieR")),
"sd2" = readRDS(system.file("extdata", "ship_subset2.RDS",
package = "dataquieR"))
)
prep_add_data_frames(data_frame_list = study_tables)
int_unexp_elements(
identifier_name_list = c("sd1", "sd2"),
data_element_count = c(30, 29)
)
}
Run the code above in your browser using DataLab