From 81c4f964e1bd259ff1d6f444928a5a4278f76379 Mon Sep 17 00:00:00 2001
From: jwildfire <jwildfire@gmail.com>
Date: Thu, 17 Jun 2021 09:24:14 -0400
Subject: [PATCH 1/2] add basic loading indicator via shinybusy. fix #575

---
 NAMESPACE                | 1 +
 R/mod_safetyGraphicsUI.R | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/NAMESPACE b/NAMESPACE
index 2fcfe295..a5b2badf 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -71,6 +71,7 @@ importFrom(shiny,dataTableOutput)
 importFrom(shiny,renderDataTable)
 importFrom(shinyWidgets,progressBar)
 importFrom(shinyWidgets,updateProgressBar)
+importFrom(shinybusy,add_busy_spinner)
 importFrom(shinyjs,delay)
 importFrom(shinyjs,disable)
 importFrom(shinyjs,disabled)
diff --git a/R/mod_safetyGraphicsUI.R b/R/mod_safetyGraphicsUI.R
index edf281af..adee9f22 100644
--- a/R/mod_safetyGraphicsUI.R
+++ b/R/mod_safetyGraphicsUI.R
@@ -7,7 +7,8 @@
 #' @param standards a list of information regarding data standards. Each list item should use the format returned by safetyGraphics::detectStandard.
 #'
 #' @importFrom shinyjs useShinyjs
-#'  
+#' @importFrom shinybusy add_busy_spinner 
+#' 
 #' @export
 
 safetyGraphicsUI <- function(id, meta, domainData, mapping, standards){
@@ -32,6 +33,7 @@ safetyGraphicsUI <- function(id, meta, domainData, mapping, standards){
     #app UI using calls to modules
     ui<-tagList(
         shinyjs::useShinyjs(),
+        add_busy_spinner(spin = "atom", position="bottom-right"),
         tags$head(
             tags$style(app_css),
             tags$link(

From 1987be86aad7a6664e0617d6b4cfd861930cd1c7 Mon Sep 17 00:00:00 2001
From: Spencer Childress <samussiah@gmail.com>
Date: Fri, 6 Aug 2021 13:58:06 -0400
Subject: [PATCH 2/2] add shinybusy to DESCRIPTION.Imports

---
 DESCRIPTION | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 41533a8c..934c89c8 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -51,7 +51,8 @@ Imports:
     shinyWidgets,
     sortable,
     stringr,
-    yaml
+    yaml,
+    shinybusy
 Remotes: safetyGraphics/safetyCharts
 VignetteBuilder: knitr
 Roxygen: list(markdown = TRUE)