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

Code

library(random.cdisc.data)
library(teal)

data <- teal_data()
data <- within(data, {
  ADSL <- radsl(cached = TRUE)
})
# set datanames
datanames <- c("ADSL")
datanames(data) <- datanames

Warning: `datanames<-()` was deprecated in teal.data 0.7.0.
ℹ invalid to use `datanames()<-` or `names()<-` on an object of class
  `teal_data`. See ?names.teal_data

## Reusable Configuration For Modules
ADSL <- data[["ADSL"]]

header <- tags$span(
  style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
  tags$span("Excercise 1", style = "font-size: 30px;"),
)

footer <- tags$p(
  "This teal app is brought to you by PhUSE SDE Basel."
)

app <- init(
  data = data,
  modules = modules(
    example_module()
  ),
  title = build_app_title("Basic Teal Demo App"),
  header = header,
  footer = footer
)

Warning: `build_app_title()` was deprecated in teal 0.16.0.
ℹ Use `modify_title()` on the object created using the `init`.

Warning: The `title` argument of `init()` is deprecated as of teal 0.16.0.
ℹ Use `modify_title()` on the teal app object instead. See ?modify_title for
  examples and more details.

Warning: The `header` argument of `init()` is deprecated as of teal 0.16.0.
ℹ Use `modify_header()` on the teal app object instead. See ?modify_header for
  examples and more details.

Warning: The `footer` argument of `init()` is deprecated as of teal 0.16.0.
ℹ Use `modify_footer()` on the teal app object instead. See ?modify_footer for
  examples and more details.

if (Sys.getenv("QUARTO_ROOT") == "") {
  shinyApp(app$ui, app$server)
}

URL

Open in Shinylive

App