Update R/init.R

Co-authored-by: Dawid Kałędkowski <[email protected]> Signed-off-by: Vedha Viyash <[email protected]>
insightsengineering · Jan 10, 2025 · c51ac21 · c51ac21
1 parent 9019c6e
commit c51ac21
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/init.R b/R/init.R
@@ -379,8 +379,7 @@ add_landing_popup <- function(
     buttons = modalButton("Accept")) {
   old_server <- app$server
 
-  app$server <- function(input, output, session) {
-    old_server(input, output, session)
+  custom_server <- function(input, output, session() {
     showModal(
       modalDialog(
         id = id,
@@ -390,6 +389,7 @@ add_landing_popup <- function(
       )
     )
   }
+  app$server <- add_custom_server(app, custom_server)
   app
 }