CSS loading widget

app.R

 library(scales)
 library(tidyverse)
 library(readxl)
+library(shinycssloaders)
 
 # Original data from 
 # https://catalogue.data.govt.nz/dataset/
    # Sector tab ----
    tabPanel("By sector",
                 h3("Emissions by sector"),
-                plotOutput("secPlot"),
+                plotOutput("secPlot") %>% withSpinner(type=5),
                 fluidRow(
                  column(5, offset=1,
                         h4("Options"),
      # Fuel tab ----
      tabPanel("By fuel",
               h3("Emissions by fuel"),
-              plotOutput("fuPlot"),
+              plotOutput("fuPlot") %>% withSpinner(type=5),
                 fluidRow(
                  column(5, offset=1,
                         h4("Options"),