load(metacore_example("pilot_ADaM.rda"))
adsl <- select_dataset(metacore, "ADSL", quiet = TRUE)
is_DatasetMeta("DUMMY") # Expect FALSE
is_DatasetMeta(metacore) # Expect FALSE
is_DatasetMeta(adsl) # Expect TRUE
Run the code above in your browser using DataLab