# general data example
data <- teal_data()
data <- within(data, CO2 <- CO2)
app <- init(
data = data,
modules = modules(
tm_outliers(
outlier_var = teal.picks::picks(
datasets("CO2", "CO2"),
teal.picks::variables(c("conc", "uptake"), "uptake"),
teal.picks::values()
),
categorical_var = teal.picks::picks(
datasets("CO2", "CO2"),
teal.picks::variables(c("Plant", "Type", "Treatment"), "Plant"),
teal.picks::values()
)
)
)
)
if (interactive()) {
shinyApp(app$ui, app$server)
}
# CDISC data example
data <- teal_data()
data <- within(data, {
ADSL <- teal.data::rADSL
})
join_keys(data) <- default_cdisc_join_keys[names(data)]
app <- init(
data = data,
modules = modules(
tm_outliers(
outlier_var = teal.picks::picks(
datasets("ADSL", "ADSL"),
teal.picks::variables(c("AGE", "BMRKR1"), "AGE")
),
categorical_var = teal.picks::picks(
datasets("ADSL", "ADSL"),
teal.picks::variables(teal.picks::is_categorical(min.len = 1, max.len = 10))
)
)
)
)
if (interactive()) {
shinyApp(app$ui, app$server)
}
Run the code above in your browser using DataLab