inst/shiny-examples/eusocial-viz/ui.R

In bwv988/eusocialr: Load, filter, plot, and analyze unemployment data from the Eurostat database

# eusocial-viz - shiny dashboard app UI code.
# FIXME: This is only for demo purposes and by no means production-grade code.

library(shinydashboard)
library(leaflet)

# Define the header.
header = dashboardHeader(title = "eusocial-viz")

# Define the sidebar.
sidebar = dashboardSidebar(hr(),
                           sidebarMenu(
                             id = "tabs",
                             menuItem(
                               "Coropleth plot",
                               tabName = "coroplot",
                               icon = icon("map"),
                               selected = TRUE
                             ),
                             menuItem(
                               "Time series plot",
                               tabName = "tsplot",
                               icon = icon("line-chart")
                             ),
                             menuItem("Time series models",
                                      tabName = "model",
                                      icon = icon("file-text-o")),
                             menuItem(
                               "Links and further info",
                               tabName = "links",
                               icon = icon("mortar-board")
                             ),
                             menuItem("About",
                                      tabName = "about",
                                      icon = icon("question"))
                           ))

# Define the body.
body = dashboardBody(tabItems(
  # Coropleth map tab w./ controls.
  tabItem(
    tabName = "coroplot",
    fluidRow(column(
      width = 12,
      box(
        width = NULL,
        p( class = "text-muted",
           paste("NOTE: It will take some seconds for the data to load initially.")),
        leafletOutput("coroplot",
                      height = "500px"),
        collapsible = FALSE,
        title = "Unemployment in the EU by NUTS 2013 regions",
        status = "primary",
        solidHeader = TRUE
      )
    )),
    fluidRow(
      column(
        width = 4,
        box(
          width = NULL,
          height = 230,
          status = "warning",
          h4("Age group"),
          hr(),
          radioButtons(
            "radioage1",
            label = NULL,
            choices = list(
              ">= 25 years" = "Y_GE25",
              "15-24 years" = "Y15-24",
              "20-64 years" = "Y20-64",
              ">= 15 years" = "Y_GE15"
            ),
            selected = "Y_GE25"
          ),
          p (class = "text-muted",
             paste("Select the wanted age group."))
        )
      ),
      column(
        width = 4,
        box(
          width = NULL,
          height = 230,
          status = "warning",
          h4("Gender"),
          hr(),
          radioButtons(
            "radiosex1",
            label = NULL,
            choices = list(
              "Total" = "T",
              "Males" = "M",
              "Females" = "F"
            ),
            selected = "T"
          ),
          p (
            class = "text-muted",
            paste("Use this to select a gender, or 'Total' for a summary.")
          )
        )
      ),
      column(
        width = 4,
        box(
          width = NULL,
          height = 230,
          status = "warning",
          h4("Year"),
          hr(),
          # FIXME: Must be a more efficient way to generate this.
          selectInput(
            "year1",
            label = NULL,
            choices = c(
              "1999" = "1999",
              "2000" = "2000",
              "2001" = "2001",
              "2002" = "2002",
              "2003" = "2003",
              "2004" = "2004",
              "2005" = "2005",
              "2006" = "2006",
              "2007" = "2007",
              "2008" = "2008",
              "2009" = "2009",
              "2010" = "2010",
              "2011" = "2011",
              "2012" = "2012",
              "2013" = "2013",
              "2014" = "2014",
              "2015" = "2015",
              "2016" = "2016"
            ),
            selected = "2010"
          ),
          p (
            class = "text-muted",
            paste("Note: Note all countries have made data available for all years.")
          )
        )
      )
    )
  ),
  # The time series plot tab.
  tabItem(
    tabName = "tsplot",
    fluidRow(column(
      width = 12,
      box(
        width = NULL,
        p(class = "text-muted",
           paste("NOTE: It will take some seconds for the data to load initially.")),
        plotOutput("tsplot",
                   height = "500px"),
        collapsible = FALSE,
        title = "EU Unemployment Time Series Plots",
        status = "primary",
        solidHeader = TRUE
      )
    )),
    fluidRow(
      column(
        width = 4,
        box(
          width = NULL,
          height = 330,
          status = "warning",
          h4("Age group"),
          hr(),
          radioButtons(
            "radioage2",
            label = NULL,
            choices = list(
              ">= 25 years" = "Y_GE25",
              "15-24 years" = "Y15-24",
              "20-64 years" = "Y20-64",
              ">= 15 years" = "Y_GE15"
            ),
            selected = "Y_GE25"
          ),
          p (class = "text-muted",
             paste("Select the wanted age group."))
        )
      ),
      column(
        width = 4,
        box(
          width = NULL,
          height = 330,
          status = "warning",
          h4("Gender"),
          hr(),
          radioButtons(
            "radiosex2",
            label = NULL,
            choices = list(
              "Total" = "T",
              "Males" = "M",
              "Females" = "F"
            ),
            selected = "T"
          ),
          p (
            class = "text-muted",
            paste("Use this to select a gender, or 'Total' for a summary.")
          )
        )
      ),
      column(
        width = 4,
        box(
          width = NULL,
          height = 330,
          status = "warning",
          h4("Countries"),
          hr(),
          # FIXME: Must be a more efficient way to generate this.
          checkboxGroupInput("countries.sel",
                             label = NULL,
                             choices = list("Ireland" = "IE",
                                            "United Kingdom" = "UK",
                                            "France" = "FR",
                                            "Germany" = "DE",
                                            "Spain" = "ES",
                                            "Italy" = "IT",
                                            "EA-18" = "EA18"),
                             selected = "EA18"),
          p (
            class = "text-muted",
            paste("Select countries to compare. Not all available countries are listed.")
          )
        )
      )
    )
  ),
  tabItem(tabName = "model",
          fluidRow(column(
            width = 12,
            box(
              width = NULL,
              p(class = "text-muted",
               paste("NOTE: It will take some seconds for the data to load initially.")),
              h4("ARIMA model results"),
              htmlOutput("arimamodel"),
              hr(),
              h4("ARFIMA model results"),
              htmlOutput("arfimamodel"),
              collapsible = FALSE,
              title = "ARIMA and ARFIMA models for UK unemployment data",
              status = "primary",
              solidHeader = TRUE
            )
          ))
  ),
  tabItem(tabName = "links",
          includeMarkdown("links.Rmd")),
  tabItem(tabName = "about",
          includeMarkdown("about.Rmd"))
))


# Build the dashboard app.
dashboardPage(header,
              sidebar,
              body)