R/main_ui.R

In ikbentimkramer/cdphmd: Collaborative Data Project Housing Market Dashboard

#' Main UI
#'
#' This function returns the main UI for this dashboard.
#'
#' @examples
#' \dontrun{
#' shiny::shinyApp(main_ui(), main_server())
#' }
#' @import shiny
#' @import shinydashboard
#' @noRd
main_ui  <- function(housing_data, housing_price, filtered_migration, woon) {
  constants <- list(
    title = "CDPHMD")
  header <- shinydashboard::dashboardHeader(title = constants[["title"]])

  sidebar <- shinydashboard::dashboardSidebar(
    shinydashboard::sidebarMenu(
      shinydashboard::menuItem(
        "General Information",
        tabName = "Intro",
        icon = icon("info")),

      shinydashboard::menuItem(
        "Accountability",
        tabName = "Acc",
        icon = icon("clipboard-check")),

      shinydashboard::menuItem(
        "Registered data",
        icon = icon("chart-line"),
        tabName = "regdata",
        shinydashboard::menuSubItem(
          "Housing stock",
          tabName = "housingstock",
          icon = icon("building")),
        shinydashboard::menuSubItem(
          "Housing price",
          tabName = "housingprice",
          icon = icon("dollar-sign")),
        shinydashboard::menuSubItem(
          "Migration",
          tabName = "migration",
          icon = icon("people-carry"))),

      shinydashboard::menuItem(
        "Subjective data",
        tabName = "subdata",
        icon = icon("clipboard"),
        shinydashboard::menuSubItem(
          "Satisfaction",
          tabName = "satisfaction"),
        shinydashboard::menuSubItem(
          "Desire to move",
          tabName = "move_desire"),
        shinydashboard::menuSubItem(
          "Vacancy rate",
          tabName = "vacancy")
      ),
      shinydashboard::menuItem(
        "Downloads",
        tabName = "download",
      icon = icon("download")
      )
    )
  )

  body <- shinydashboard::dashboardBody(
    tags$head(
      tags$link(
        href = "https://fonts.googleapis.com/css2?family=Bree+Serif&display=swap",
        rel = "stylesheet",
        type = "text/css"),
      tags$link(
        href = "www/css/cdphmd.css",
        rel = "stylesheet",
        type = "text/css")
    ),
    shinydashboard::tabItems(
      tab_intro_ui(),

      tab_accountability_ui(),

      shinydashboard::tabItem(
        tabName = "download",
        shiny::includeMarkdown(this_pkg("www/md/download.md"))),

      tab_housingstock_ui(housing_data),

      tab_housingprice_ui(housing_price),
      
      tab_migration_ui(filtered_migration),

      tab_satisfaction_ui(woon),

      tab_move_desire_ui(woon),

      tab_vacancy_ui(woon)))

    shinydashboard::dashboardPage(header, sidebar, body)
  }