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)
diff --git a/NAMESPACE b/NAMESPACE
index afff64e0..9c7c8c48 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -69,6 +69,7 @@ importFrom(shiny,dataTableOutput)
 importFrom(shiny,renderDataTable)
 importFrom(shinyWidgets,progressBar)
 importFrom(shinyWidgets,updateProgressBar)
+importFrom(shinybusy,add_busy_spinner)
 importFrom(shinyjs,addClass)
 importFrom(shinyjs,delay)
 importFrom(shinyjs,disable)
diff --git a/R/mod_safetyGraphicsUI.R b/R/mod_safetyGraphicsUI.R
index 665c1a1a..62be772a 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(