load(metacore_example("pilot_ADaM.rda"))
adsl <- select_dataset(metacore, "ADSL", quiet = TRUE)
if (FALSE) {
verify_DatasetMeta("DUMMY") # Expect error
verify_DatasetMeta(metacore) # Expect error
}
verify_DatasetMeta(adsl) # Expect valid, i.e., return TRUE
Run the code above in your browser using DataLab