app <- init(
data = teal_data(IRIS = iris, MTCARS = mtcars),
modules = modules(example_module())
) |>
modify_title(title = "Custom title")
if (interactive()) {
shinyApp(app$ui, app$server)
}
app <- init(
data = teal_data(IRIS = iris),
modules = modules(example_module())
) |>
modify_header(element = tags$div(h3("Custom header")))
if (interactive()) {
shinyApp(app$ui, app$server)
}
app <- init(
data = teal_data(IRIS = iris),
modules = modules(example_module())
) |>
modify_footer(element = "Custom footer")
if (interactive()) {
shinyApp(app$ui, app$server)
}
Run the code above in your browser using DataLab