library(random.cdisc.data)
library(teal)
<- teal_data()
data <- within(data, {
data <- radsl(cached = TRUE)
ADSL
})# set datanames
<- c("ADSL")
datanames datanames(data) <- datanames
## Reusable Configuration For Modules
<- data[["ADSL"]]
ADSL
<- tags$span(
header style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
$span("Excercise 1", style = "font-size: 30px;"),
tags
)
<- tags$p(
footer "This teal app is brought to you by PhUSE SDE Basel."
)
<- init(
app data = data,
modules = modules(
example_module()
),title = build_app_title("Basic Teal Demo App"),
header = header,
footer = footer
)
if (Sys.getenv("QUARTO_ROOT") == "") {
shinyApp(app$ui, app$server)
}
Exercise 1
Create your first teal
application!
- read
teal::init()
documentation - use
random.cdisc.data::radsl(cached = TRUE)
to create a dummy ADSL dataset - use
teal::example_module()
to create a dummy module