library(teal.widgets)
# Module specification used in apps below
tm_variable_browser_module <- tm_variable_browser(
label = "Variable browser",
ggplot2_args = ggplot2_args(
labs = list(subtitle = "Plot generated by Variable Browser Module")
)
)
# general data example
data <- teal_data()
data <- within(data, {
iris <- iris
mtcars <- mtcars
women <- women
faithful <- faithful
CO2 <- CO2
})
datanames(data) <- c("iris", "mtcars", "women", "faithful", "CO2")
app <- init(
data = data,
modules = modules(tm_variable_browser_module)
)
if (interactive()) {
shinyApp(app$ui, app$server)
}
# CDISC example data
data <- teal_data()
data <- within(data, {
ADSL <- rADSL
ADTTE <- rADTTE
})
datanames(data) <- c("ADSL", "ADTTE")
join_keys(data) <- default_cdisc_join_keys[datanames(data)]
app <- init(
data = data,
modules = modules(tm_variable_browser_module)
)
if (interactive()) {
shinyApp(app$ui, app$server)
}
Run the code above in your browser using DataLab