R/dash_ui.R

In MattCowgill/macrodashboard: Shiny dashboard for Australian macroeconomic data

graph_ui <- function(id,
                     title = "",
                     input_fn1 = function(id) {},
                     input_fn2 = function(id) {}) {
  div(
    style = "padding: 30px; background-color: rgba(217,217,217,0.5); border-style: solid; border-width: thin; border-color: #D9D9D9",
    # Inputs above plot
    fluidRow(
      column(
        width = 12,
        h3(strong(title))
      ),
      column(
        width = 4,
        input_fn1(id)
      ),
      column(
        width = 4,
        input_fn2(id)
      )
    ),
    fluidRow(div(
      plotOutput(NS(id, "plot"),
        height = "500px"
      ),
      style = "max-width: 765px"
    )),
    fluidRow(column(download_graph_ui(id),
      width = 9
    ))
  )
}

download_graph_ui <- function(id) {
  fluidRow(
    column(
      selectInput(NS(id, "type"),
        "Select plot type to download",
        choices = c(
          "normal", "wholecolumn", "fullpage",
          "fullslide", "fullslide_169", "fullslide_old169",
          "blog", "blog_half"
        ),
        selected = "blog",
        multiple = FALSE
      ),
      width = 6
    ),
    column(
      radioButtons(NS(id, "filetype"),
        "Select plot format to download",
        choices = c("PNG", "PowerPoint"),
        selected = "PNG"
      ),
      width = 6
    ),
    column(
      downloadButton(NS(id, "download"), "Download plot"),
      width = 6
    ),
    column(
      downloadButton(NS(id, "download_data"), "Download chart data"),
      width = 6
    )
  )
}


sidebar <- function(...) {
  dashboardSidebar(
    sidebarMenu(
      # style = "position: fixed; overflow: visible;",
      menuItem("About",
        tabName = "about",
        icon = icon("bookmark")
      ),
      menuItem("Housing",
        tabName = "housing",
        icon = icon("home")
      ),
      menuItem("Unemployment",
        tabName = "unemployment",
        icon = icon("briefcase")
      ),
      menuItem("Employment + hours",
        tabName = "emp_hours",
        icon = icon("chart-area")
      ),
      menuItem("Payroll jobs",
        tabName = "payrolls",
        icon = icon("dollar")
      ),
      menuItem("Jobs maps",
        tabName = "jobs_maps",
        icon = icon("globe")
      ),
      menuItem("Inflation + wages growth",
        tabName = "inf_wages",
        icon = icon("dollar")
      ),
      menuItem("Interest rates",
        tabName = "interest",
        icon = icon("dollar")
      ),
      menuItem("Mobility",
        tabName = "mobility",
        icon = icon("car")
      ),
      menuItem("Minimum wages",
        tabName = "oecd_minwage",
        icon = icon("dollar")
      ),
      menuItem("Labour force flows",
        tabName = "gross_flows",
        icon = icon("wind")
      )
    )
  )
}

tab_about <- function(...) {
  tabItem(
    tabName = "about",
    fluidRow(
      shinyjs::useShinyjs(),
      div(
        id = "loading_page",
        h2(" Loading data, please wait...")
      ),
      shinyjs::hidden(
        div(
          id = "main_content",
          " Data loaded."
        )
      ),
      div(
        "Some text here"
      )
    )
  )
}

tab_unemployment <- function(...) {
  tabItem(
    tabName = "unemployment",
    graph_ui("unemp",
      title = "Unemployment rate",
      input_fn1 = function(id) {
        sliderInput(NS(id, "arg1"),
          "Choose dates to show",
          min = as.Date("1901-06-30"),
          max = Sys.Date(),
          value = c(
            Sys.Date() - lubridate::years(40),
            Sys.Date()
          )
        )
      }
    ),
    graph_ui("unemp_age_dots",
      title = "Unemployment and underemployment by age",
      input_fn1 = function(id) {
        sliderInput(NS(id, "arg1"),
          "Choose initial date to show",
          min = as.Date("2020-01-01"),
          max = Sys.Date(),
          value = as.Date("2020-03-01"),
          timeFormat = "%b %Y"
        )
      }
    )
  )
}

tab_emphours <- function(...) {
  tabItem(
    tabName = "emp_hours",
    graph_ui("hours_pop",
      title = "Hours per head of population (civilians aged 15+)"
    ),
    graph_ui("viz_emphours_sex_recessions",
      title = "Recessions compared by sex",
      input_fn1 = function(id) {
        selectInput(NS(id, "arg1"),
          "Select measure of interest",
          choices = c(
            "Employment" = "employment",
            "Total hours worked" = "hours",
            "Hours per head of population" = "hours_pop"
          ),
          selected = "employment"
        )
      },
      input_fn2 = function(id) {
        selectInput(NS(id, "arg2"),
          "Facet on recession or sex?",
          choices = c(
            "Recession" = "recession",
            "Sex" = "sex"
          ),
          selected = "recession"
        )
      }
    ),
    graph_ui("emp_agesex_recessions",
      title = "Recessions compared by age"
    )
  )
}

tab_payrolls <- function(...) {
  tabItem(
    tabName = "payrolls",
    graph_ui("payrolls_bystate",
      title = "Payroll jobs or total wages by state",
      input_fn1 = function(id) {
        checkboxGroupInput(NS(id, "arg1"),
          label = "Choose states to show",
          choices = c(
            "Australia",
            "ACT",
            "NSW",
            "NT",
            "QLD",
            "SA",
            "TAS",
            "VIC",
            "WA"
          ),
          selected = c(
            "NSW",
            "VIC",
            "QLD",
            "TAS",
            "SA",
            "WA"
          ),
          inline = TRUE
        )
      }
    ),
    graph_ui("payrolls_byind_bystate",
      title = "Payroll jobs by state, by industry",
      input_fn1 = function(id) {
        selectInput(NS(id, "arg1"),
          "Select industry to highlight",
          choices = c(
            "Agriculture, forestry & fishing",
            "Mining",
            "Manufacturing",
            "Electricity, gas, water & waste services",
            "Construction",
            "Wholesale trade",
            "Retail trade",
            "Accommodation & food services",
            "Transport, postal & warehousing",
            "Information media & telecommunications",
            "Financial & insurance services",
            "Rental, hiring & real estate services",
            "Professional, scientific & technical services",
            "Administrative & support services",
            "Public administration & safety",
            "Education & training",
            "Health care & social assistance",
            "Arts & recreation services",
            "Other services"
          ),
          selected = "Construction"
        )
      }
    ),
    graph_ui("payrolls_byind_bar",
      title = "Change in payroll jobs by industry",
      input_fn1 = function(id) {
        selectInput(NS(id, "arg1"),
          "Select industry to highlight",
          choices = c(
            "Agriculture, forestry & fishing",
            "Mining",
            "Manufacturing",
            "Electricity, gas, water & waste services",
            "Construction",
            "Wholesale trade",
            "Retail trade",
            "Accommodation & food services",
            "Transport, postal & warehousing",
            "Information media & telecommunications",
            "Financial & insurance services",
            "Rental, hiring & real estate services",
            "Professional, scientific & technical services",
            "Administrative & support services",
            "Public administration & safety",
            "Education & training",
            "Health care & social assistance",
            "Arts & recreation services",
            "Other services"
          ),
          selected = "Construction"
        )
      }
    ),
    graph_ui("payroll_bysex",
      title = "Payroll jobs by sex"
    ),
    graph_ui("payroll_byage",
      title = "Payroll jobs by age"
    )
  )
}

tab_jobs_maps <- function(...) {
  tabItem(
    tabName = "jobs_maps",
    graph_ui(
      title = "Payroll jobs by SA3",
      "payrolls_map",
      input_fn1 = function(id) {
        selectInput(NS(id, "arg1"),
          "City to show",
          choices = c(
            "Perth",
            "Adelaide",
            "Hobart",
            "Darwin",
            "Canberra",
            "Brisbane",
            "Sydney",
            "Melbourne"
          ),
          selected = "Melbourne"
        )
      }
    )
  )
}

tab_inf_wages <- function(...) {
  tabItem(
    tabName = "inf_wages",
    graph_ui(
      title = "Inflation and wages forecasts",
      "forecasts_cpi_wpi"
    ),
    graph_ui("wpi_bysector",
      title = "WPI growth by sector",
      input_fn1 = function(id) {
        sliderInput(NS(id, "arg1"),
          "Select date range to show",
          min = as.Date("1997-09-01"),
          max = Sys.Date(),
          value = c(
            as.Date("1997-09-01"),
            Sys.Date()
          )
        )
      },
      input_fn2 = function(id) {
        checkboxGroupInput(NS(id, "arg2"),
          "Choose sector to show",
          choices = c(
            "Public",
            "Private",
            "Total"
          ),
          selected = c(
            "Public",
            "Private",
            "Total"
          )
        )
      }
    ),
    graph_ui("wpi_byind",
      title = "WPI growth by industry",
      input_fn1 = function(id) {
        sliderInput(NS(id, "arg1"),
          "Minimum date for average wage calculation",
          min = as.Date("1997-09-01"),
          max = Sys.Date(),
          value = as.Date("1997-09-01")
        )
      },
      input_fn2 = function(id) {
        checkboxGroupInput(NS(id, "arg2"),
          "Choose sector to show",
          inline = TRUE,
          choices = c(
            "Mining",
            "Manufacturing",
            "Electricity, gas, water and waste services",
            "Construction",
            "Wholesale trade",
            "Retail trade",
            "Accommodation and food services",
            "Transport, postal and warehousing",
            "Information media and telecommunications",
            "Financial and insurance services",
            "Rental, hiring and real estate services",
            "Professional, scientific and technical services",
            "Administrative and support services",
            "Public administration and safety",
            "Education and training",
            "Health care and social assistance",
            "Arts and recreation services",
            "Other services",
            "All industries"
          ),
          selected = c(
            "Mining",
            "Manufacturing",
            "Electricity, gas, water and waste services",
            "Construction",
            "Wholesale trade",
            "Retail trade",
            "Accommodation and food services",
            "Transport, postal and warehousing",
            "Information media and telecommunications",
            "Financial and insurance services",
            "Rental, hiring and real estate services",
            "Professional, scientific and technical services",
            "Administrative and support services",
            "Public administration and safety",
            "Education and training",
            "Health care and social assistance",
            "Arts and recreation services",
            "Other services",
            "All industries"
          )
        )
      }
    )
  )
}

tab_interest <- function(...) {
  tabItem(
    tabName = "interest",
    graph_ui(
      title = "Yield curve on Australian Government bonds",
      "rba_yieldcurve"
    ),
    graph_ui(
      title = "Interest rate on Australian Government bonds over time",
      "rba_bondrate",
      input_fn1 = function(id) {
        sliderInput(NS(id, "arg1"),
                    min = as.Date("1900-01-01"),
                    max = Sys.Date(),
                    value = c(as.Date("1900-01-01"), Sys.Date()),
                    label = "Choose dates to show")
      }
    ),
    graph_ui(
      title = "Official interest rates of key central banks",
      "rba_official_rates",
      input_fn1 = function(id) {
        sliderInput(NS(id, "arg1"),
                    label = "Date range to show",
                    min = as.Date("1990-01-31"),
                    max = Sys.Date(),
                    value = c(as.Date("1990-01-31"),
                              Sys.Date()),
                    step = 30)
      },
      input_fn2 = function(id) {
        checkboxGroupInput(NS(id, "arg2"),
                           label = "Areas to show",
                           choices = c("Australia",
                                       "Canada",
                                       "Euro area",
                                       "Japan",
                                       "UK",
                                       "US"),
                           selected = c("Australia",
                                        "Canada",
                                        "Euro area",
                                        "Japan",
                                        "UK",
                                        "US"))
      }
    )
  )
}

tab_housing <- function(...) {
  tabItem(
    tabName = "housing",
    graph_ui("corelogic_shutdown_panel"),
    br(),
    graph_ui("corelogic_shutdown_lines",
      input_fn1 = function(id) {
        sliderInput(NS(id, "arg1"),
          "Choose minimum date to show",
          min = as.Date("2018-11-02"),
          max = Sys.Date() - 1,
          value = as.Date("2020-01-01")
        )
      },
      input_fn2 = function(id) {
        sliderInput(NS(id, "arg2"),
          "Choose date to base index",
          min = as.Date("2018-11-02"),
          max = Sys.Date(),
          value = as.Date("2020-03-22")
        )
      }
    )
  )
}

tab_mobility <- function(...) {
  tabItem(
    tabName = "mobility",
    graph_ui("apple_mobility",
      title = "Mobility in Australian cities",
      input_fn1 = function(id) {
        checkboxGroupInput(NS(id, "arg1"),
          label = "Cities to show",
          choices = c(
            "Perth",
            "Adelaide",
            "Brisbane",
            "Sydney",
            "Melbourne"
          ),
          selected = c(
            "Perth",
            "Sydney",
            "Melbourne"
          )
        )
      }
    )
  )
}

tab_min_wages <- function(...) {
  tabItem(
    tabName = "oecd_minwage",
    graph_ui("oecd_minwage",
      title = "Minimum wages in the OECD",
      input_fn1 = function(id) {
        selectInput(NS(id, "arg1"),
          label = "Show MW as a percentage of",
          choices = c("mean", "median"),
          selected = "mean"
        )
      },
      input_fn2 = function(id) {
        checkboxInput(NS(id, "arg2"),
          label = "Show other countries as shaded range",
          value = FALSE,
        )
      }
    )
  )
}

tab_gross_flows <- function(...) {
  tabItem(
    tabName = "gross_flows",
    graph_ui("gross_flows",
      input_fn1 = function(id) {
        sliderInput(NS(id, "arg1"),
          "Choose minimum date to show",
          min = as.Date("2000-09-01"),
          max = Sys.Date() - 90,
          value = as.Date("2018-01-01")
        )
      }
    )
  )
}

body <- function(...) {
  dashboardBody(
    tags$script(HTML("$('body').addClass('fixed');")),
    tags$head(
      tags$link(rel = "stylesheet",
                type = "text/css",
                href = system.file("www", "custom.css",
                                   package = "macrodashboard"))),
    tabItems(
      tab_about(),
      tab_unemployment(),
      tab_emphours(),
      tab_payrolls(),
      tab_jobs_maps(),
      tab_inf_wages(),
      tab_interest(),
      tab_mobility(),
      tab_min_wages(),
      tab_housing(),
      tab_gross_flows()
    )
  )
}


dash_ui <- function(...) {

  dashboardPage(
    skin = "black",
    header = dashboardHeader(title = "Grattan chart library"),
    sidebar = sidebar(),
    body = body()
  )
}