add progress indicator starting #88

subugoe · Feb 10, 2021 · 39c137f · 39c137f
1 parent 7f795a0
commit 39c137f
Showing 1 changed file with 14 additions and 4 deletions.
diff --git a/inst/app/index.Rmd b/inst/app/index.Rmd
@@ -49,16 +49,26 @@ iv$enable()
 
 html_email <- eventReactive(input$create, {
   if (length(dois()) > 1) {
-    render_email(dois = dois(), session_id = session_id)$html_html
+    withProgress(
+      expr = {
+        render_email(dois = dois(), session_id = session_id)$html_html
+      },
+      message = "Generating report..."
+    )
   }
 })
 output$draft <- renderUI(html_email())
 
 observeEvent(input$send, {
   if (length(dois() > 1 & iv$is_valid())) {
-    send_email(
-      to = input$email,
-      email = render_email(dois = dois(), session_id = session_id)
+    withProgress(
+      expr = {
+        send_email(
+          to = input$email,
+          email = render_email(dois = dois(), session_id = session_id)
+        )
+      },
+      message = "Generating report and sending e-mail. You can close this window."
     )
   }
 })