# NOT RUN {
# from scratch
out <- shiny_attributes(NULL, NULL)
# from data
data <- iris
out <- shiny_attributes(data, NULL)
# from exisiting attributes
file <- system.file("tests", emld::eml_version(),
"eml-datasetWithAttributelevelMethods.xml",
package = "emld"
)
eml <- read_eml(file)
x <- eml$dataset$dataTable$attributeList
df <- get_attributes(x, eml)
out <- shiny_attributes(NULL, df$attributes)
# from attributes and data
out <- shiny_attributes(data, df$attributes)
# }
Run the code above in your browser using DataLab