R/app_ui.R

In Metropolitan-Council/regionalparks.acs: Regional Parks and the American Community Survey

##### Make sure files to make .rda are present (i've skipped a lot here)
#' The application User-Interface
#'
#' @param request Internal parameter for `{shiny}`.
#'     DO NOT REMOVE.
#' @import shiny
#'
app_ui <- function(request) {
  tagList(
    tags$html(lang = "en"),
    # Leave this function for adding external resources
    golem_add_external_resources(),
    use_waiter(),
    # List the first level UI elements here
    navbarPage(
      collapsible = TRUE,
      title = div(img(src = "www/main-logo.png", height = "60px", alt = "MetCouncil logo")),
      id = "nav",
      # intro tab -----
      tabPanel(
        "About this tool",
        mod_intro_ui("intro_ui_1")
      ),
      ## map tab -----
      tabPanel(
        id = "map_tab",
        "System Map",
        shiny::p("This map provides a general overview of the population across the 7-county Twin Cities region and adjacent areas. Zoom-in or expand layers (bottom right) to overlay buffer zones, active transit stops (bus and light rail), park entrances, rivers and lakes, and public water access."),
        br(),
        tags$li(strong("Population characteristics"), " available for mapping include: age, disability, ethnicity, income, national origin, language, race, and transportation. "),
        tags$li(strong("Forecasted population variables"), " available for mapping include: annual population estimates, long-range population estimates, and population growth."),
        hr(),
        sidebarPanel(
          style = "max-width:300px",
          mod_leaflet_sidebar_ui(id = "leaflet_sidebar_ui_1")
        ),
        mainPanel(
          # waiter_show_on_load(spin_fading_circles()),
          style = "max-width:1200px",
          mod_main_leaflet_ui("main_leaflet_ui_1"),
          # waiter_hide(),
          # waiter_hide_on_render("main_leaflet_ui_1$map")
        ),
        br(),
        hr()
      ),
      # acs summary tab -----
      tabPanel(
        title = "Unit Level Data",
        id = "sumtabs",
        shiny::p(
          "This plot provides summarized population characteristics (",
          a(
            href = "",
            "American Community Survey, 2015-2019",
            .noWS = "outside",
            target = "_blank"
          ),
          ") for all the regional parks and trails. Point location along the x-axis indicates the demographic value which can be compared across and within units or agencies. Points show the average value within agency boundaries or unit-level values."
        ),
        br(),
        tags$li("Right-click on image to copy or download."),
        tags$li("Click on any point to create a text-based interpretation."),
        tags$li("Tabular data filtered by agency may also be downloaded."),
        shiny::p(
          br(),
          mod_summary_download_ui("summary_download_ui_1")
        ),
        hr(),
        sidebarPanel(
          style = "max-width:300px",
          # this does work, but it stops the wrapping
          mod_summary_selections_ui("summary_selections_ui_1"),
          # style = "position:fixed;"
        ),
        mainPanel(
          fluidRow(style = "min-width:700px; max-width:1200px", mod_summary_ggplot_ui("mod_summary_ggplot_ui_1")) # ,
        )
      ),
      ## Notes tab -----
      tabPanel(
        "Notes",
        mod_notes_ui("notes_ui_1")
      )
    )
  )
}

#' Add external Resources to the Application
#'
#' This function is internally used to add external
#' resources inside the Shiny application.
#'
#' @import shiny
#' @importFrom golem add_resource_path activate_js favicon bundle_resources
#'
golem_add_external_resources <- function() {
  add_resource_path(
    "www",
    app_sys("app/www")
  )

  tags$head(
    favicon(),
    shiny::includeHTML(paste0(app_sys("app/www"), "/google-analytics.html")),
    bundle_resources(
      path = app_sys("app/www"),
      app_title = "Regional Parks Equity Tool"
    )
    # Add here other external resources
    # for example, you can add shinyalert::useShinyalert()
  )
}