a bit of trial and error. not completely satisfied with readcap_read-module yet

inst/apps/data_analysis/server.R

@@ -23,7 +23,6 @@ library(REDCapCAST)
 library(easystats)
 library(patchwork)
 library(DHARMa)
-library(IDEAFilter)
 # if (!requireNamespace("webResearch")) {
 #   devtools::install_github("agdamsbo/webResearch", quiet = TRUE, upgrade = "never")
 # }
@@ -296,11 +295,15 @@ server <- function(input, output, session) {
       paste0("report.", input$output_type)
     }),
     content = function(file, type = input$output_type) {
-      v$list |>
-        write_quarto(
-          output_format = type,
-          input = file.path(getwd(), "www/report.qmd")
-        )
+      ## Notification is not progressing
+      ## Presumably due to missing
+      shiny::withProgress(message = "Generating report. Hold on for a moment..", {
+        v$list |>
+          write_quarto(
+            output_format = type,
+            input = file.path(getwd(), "www/report.qmd")
+          )
+      })
       file.rename(paste0("www/report.", type), file)
     }
   )

inst/apps/data_analysis/ui.R

@@ -28,7 +28,6 @@ panels <- list(
   )
 )
 
-
 ui <- bslib::page(
   theme = bslib::bs_theme(
     bootswatch = "minty",