#' Demo and testing script
#'
#' @export
demoPdac <- function() {
#library(pdac)
data_set_list <- pdac::data_set_list
for(selectedvariable in data_set_list$variablenames){
print(as.character(selectedvariable))
dataset <- get(as.character(selectedvariable))
print(str(dataset$sampInfo))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.