Added: loader spinner

README.md

@@ -14,6 +14,7 @@ Following packages need to be installed in order to run the app locally:
 * shiny
 * shinyjs
 * shinyBS
+* shinycssloaders
 * data.table
 * DT
 * ggplot2
@@ -34,7 +35,7 @@ Following packages need to be installed in order to run the app locally:
 Install packages using `install.packages('name_of_the_package_from_the_list_above')` command in RStudio command line.
 
 ```
-install.packages(c("shiny", "shinyjs", "shinyBS",
+install.packages(c("shiny", "shinyjs", "shinyBS", "shinycssloaders",
 					"data.table", "DT",
 					"ggplot2", "gplots", "plotly", "scales", "grid",
 					"dendextend", "RColorBrewer",

modules/auxfunc.R

@@ -15,6 +15,7 @@ library(Hmisc) # for CI calculation
 
 # Global parameters ----
 
+
 # if true, additional output printed to R console
 DEB = T
 

modules/tabClHier.R

@@ -166,7 +166,7 @@ clustHierUI <- function(id, label = "Hierarchical CLustering") {
                
                downPlotUI(ns('downPlotHier'), "Download PNG"),
                actionButton(ns('butPlotHierHeatMap'), 'Plot!'),
-               plotOutput(ns('outPlotHier'))
+               withSpinner(plotOutput(ns('outPlotHier')))
       ),
 
       tabPanel('Averages',

modules/tabClHierSpar.R

@@ -174,7 +174,7 @@ clustHierSparUI <- function(id, label = "Sparse Hierarchical CLustering") {
                downPlotUI(ns('downPlotHierSparHM'), "Download PNG"),
                
                actionButton(ns('butPlotHierSparHeatMap'), 'Plot!'),
-               plotOutput(ns('outPlotHierSpar'))
+               withSpinner(plotOutput(ns('outPlotHierSpar')))
       ),
 
       tabPanel('Averages',

modules/trajPlot.R

@@ -97,15 +97,15 @@ modTrajPlot = function(input, output, session,
   
   output$uiPlotTraj = renderUI({
     if (input$chBplotTrajInt)
-      plotlyOutput(
+      withSpinner(plotlyOutput(
         ns("outPlotTrajInt"),
         width = paste0(input$inPlotTrajWidth, '%'),
-        height = paste0(input$inPlotTrajHeight, 'px')
+        height = paste0(input$inPlotTrajHeight, 'px'))
       ) else
-        plotOutput(
+        withSpinner(plotOutput(
           ns("outPlotTraj"),
           width = paste0(input$inPlotTrajWidth, '%'),
-          height = paste0(input$inPlotTrajHeight, 'px')
+          height = paste0(input$inPlotTrajHeight, 'px'))
         )
   })
   

server.R

@@ -7,6 +7,8 @@
 
 library(shiny)
 library(shinyjs) #http://deanattali.com/shinyjs/
+library(shinyBS) # for tooltips
+library(shinycssloaders) # for loader animations
 library(data.table)
 library(ggplot2)
 library(gplots) # for heatmap.2
@@ -30,6 +32,9 @@ library(pracma) # for trapz
 # change to increase the limit of the upload file size
 options(shiny.maxRequestSize = 200 * 1024 ^ 2)
 
+# colour of loader spinner (shinycssloaders)
+options(spinner.color="#00A8AA")
+
 # Server logic ----
 shinyServer(function(input, output, session) {
   useShinyjs()

ui.R

@@ -7,8 +7,8 @@
 
 
 library(shiny)
-library(shinyjs) #http://deanattali.com/shinyjs/
-library(shinyBS)
+library(shinyjs) # http://deanattali.com/shinyjs/
+library(shinyBS) # for tooltips
 
 shinyUI(fluidPage(
   useShinyjs(),