if (FALSE) {
# get the model datasets included with the package
model_datasets <- model_datasets
# download one of them
g <- get_datasets(dataset_filenames = model_datasets$FileName[1])
# we can pass the list of filepaths to the function
head(get_variable_labels(g))
# or we can pass the full dataset
r <- readRDS(g[[1]])
head(get_variable_labels(r))
}
Run the code above in your browser using DataLab