add Sys.sleep for demonstration

insightsengineering · Feb 21, 2024 · 85a6c70 · 85a6c70
1 parent 6df5e4d
commit 85a6c70
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/R/DownloadModule.R b/R/DownloadModule.R
@@ -142,6 +142,7 @@ download_report_button_srv <- function(id,
         content = function(file) {
           shiny::showNotification("Rendering and Downloading the document.")
           shinybusy::block(id = ns("download_data"), text = NULL, type = "dots")
+          Sys.sleep(3)
           input_list <- lapply(names(rmd_yaml_args), function(x) input[[x]])
           names(input_list) <- names(rmd_yaml_args)
           if (is.logical(input$showrcode)) global_knitr[["echo"]] <- input$showrcode

diff --git a/R/Previewer.R b/R/Previewer.R
@@ -194,6 +194,7 @@ reporter_previewer_srv <- function(id,
         content = function(file) {
           shiny::showNotification("Rendering and Downloading the document.")
           shinybusy::block(id = ns("download_data_prev"), text = NULL, type = "dots")
+          Sys.sleep(3)
           input_list <- lapply(names(rmd_yaml_args), function(x) input[[x]])
           names(input_list) <- names(rmd_yaml_args)
           if (is.logical(input$showrcode)) global_knitr[["echo"]] <- input$showrcode