Merge pull request #8 from lgnbhl/example-shiny.fluent-waiter

use waiter to add loading screen when shiny server is busy…

Author: lgnbhl

inst/examples/shiny.fluent/app/main.R

@@ -11,6 +11,15 @@ ui <- function(id) {
   ns <- shiny::NS(id)
   shiny::tagList(
     shiny.fluent::fluentPage(
+      waiter::use_waiter(),
+      waiter::waiterOnBusy(
+        color = "#C7C6C6",
+        html = shiny::tagList(
+          waiter::spin_fading_circles(),
+          "Fetching OpenDota API data and creating page..."
+        ),
+        fadeout = TRUE
+      ),
       reactRouter::HashRouter(
         reactRouter::Routes(
           reactRouter::Route(

inst/examples/shiny.fluent/dependencies.R

@@ -6,4 +6,5 @@ library(httr)
 library(shiny.fluent)
 library(reactRouter)
 library(stringdist)
-library(echarts4r)
+library(echarts4r)
+library(waiter)