diff --git a/DESCRIPTION b/DESCRIPTION index 7085e9141b..95328de84b 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -56,7 +56,6 @@ Suggests: rmarkdown, shinyvalidate, teal.code (>= 0.3.0.9009), - teal.modules.general, testthat (>= 3.1.5), withr, yaml diff --git a/R/init.R b/R/init.R index 4c46a00c0e..4fdb147951 100644 --- a/R/init.R +++ b/R/init.R @@ -45,7 +45,6 @@ #' the server function must be called with [shiny::moduleServer()]; #' See the vignette for an example. However, [ui_teal_with_splash()] #' is then preferred to this function. -#' @param extra_server A list of elements passed to `shiny::server`. #' #' @return named list with `server` and `ui` function #' @@ -101,12 +100,7 @@ #' ) #' ), #' header = tags$h1("Sample App"), -#' footer = tags$p("Copyright 2017 - 2023"), -#' extra_server = teal.modules.general::landing_popup( -#' title = "Welcome", -#' text = "A place for a welcome message or a disclaimer statement.", -#' button = modalButton("Proceed") -#' ) +#' footer = tags$p("Copyright 2017 - 2023") #' ) #' if (interactive()) { #' shinyApp(app$ui, app$server) @@ -118,8 +112,7 @@ init <- function(data, filter = teal_slices(), header = tags$p(), footer = tags$p(), - id = character(0), - extra_server = NULL) { + id = character(0)) { logger::log_trace("init initializing teal app with: data ({ class(data)[1] }).") data <- teal.data::to_relational_data(data = data) @@ -219,7 +212,6 @@ init <- function(data, res <- list( ui = ui_teal_with_splash(id = id, data = data, title = title, header = header, footer = footer), server = function(input, output, session) { - extra_server # copy object so that load won't be shared between the session data <- data$copy(deep = TRUE) filter <- deep_copy_filter(filter) diff --git a/man/init.Rd b/man/init.Rd index 0d4df7a818..234f60697f 100644 --- a/man/init.Rd +++ b/man/init.Rd @@ -11,8 +11,7 @@ init( filter = teal_slices(), header = tags$p(), footer = tags$p(), - id = character(0), - extra_server = NULL + id = character(0) ) } \arguments{ @@ -53,8 +52,6 @@ module id to embed it, if provided, the server function must be called with \code{\link[shiny:moduleServer]{shiny::moduleServer()}}; See the vignette for an example. However, \code{\link[=ui_teal_with_splash]{ui_teal_with_splash()}} is then preferred to this function.} - -\item{extra_server}{A list of elements passed to \code{shiny::server}.} } \value{ named list with \code{server} and \code{ui} function @@ -116,12 +113,7 @@ app <- init( ) ), header = tags$h1("Sample App"), - footer = tags$p("Copyright 2017 - 2023"), - extra_server = teal.modules.general::landing_popup( - title = "Welcome", - text = "A place for a welcome message or a disclaimer statement.", - button = modalButton("Proceed") - ) + footer = tags$p("Copyright 2017 - 2023") ) if (interactive()) { shinyApp(app$ui, app$server)