fix teal::init server usage of landing popup thanks to @chlebowa ideas

insightsengineering · Oct 17, 2023 · 5d18417 · 5d18417
1 parent 4f01d31
commit 5d18417
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/init.R b/R/init.R
@@ -228,7 +228,9 @@ 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) {
-      landing_popup
+      if (length(landing_popup) > 0L) {
+        do.call(landing_popup[[1]]$server, c(list(id = "landing_module_shiny_id"), landing_popup[[1]]$server_args))
+      }
       # copy object so that load won't be shared between the session
       data <- data$copy(deep = TRUE)
       filter <- deep_copy_filter(filter)