petra
/
Emissions
mirror of https://github.com/PetraOleum/Emissions.git
Watch 1
Star 0
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Browse Source

CSS loading widget

Petra Lamborn 5 years ago
parent
fe82f6d48a
commit
c3139a1594
1 changed files with 3 additions and 2 deletions
Split View Show Diff Stats
  1. 3
    2
      app.R

+ 3
- 2
app.R View File 

@@ -3,6 +3,7 @@ library(ggplot2)
3 3 
 library(scales)
4 4 
 library(tidyverse)
5 5 
 library(readxl)
6 
+library(shinycssloaders)
6 7
7 8 
 # Original data from
8 9 
 # https://catalogue.data.govt.nz/dataset/
 
@@ -36,7 +37,7 @@ ui <- navbarPage("NZ Emissions", collapsible = TRUE,
36 37 
    # Sector tab ----
37 38 
    tabPanel("By sector",
38 39 
                 h3("Emissions by sector"),
39 
-                plotOutput("secPlot"),
40 
+                plotOutput("secPlot") %>% withSpinner(type=5),
40 41 
                 fluidRow(
41 42 
                  column(5, offset=1,
42 43 
                         h4("Options"),
 
@@ -63,7 +64,7 @@ ui <- navbarPage("NZ Emissions", collapsible = TRUE,
63 64 
      # Fuel tab ----
64 65 
      tabPanel("By fuel",
65 66 
               h3("Emissions by fuel"),
66 
-              plotOutput("fuPlot"),
67 
+              plotOutput("fuPlot") %>% withSpinner(type=5),
67 68 
                 fluidRow(
68 69 
                  column(5, offset=1,
69 70 
                         h4("Options"),