R/mod_map.R

In curso-r/hamiltonCovid19: Hamilton Covid-19 Dashboard

#' map UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_map_ui <- function(id){
  ns <- NS(id)
  tagList(
    fluidRow(
      col_5(
        custom_box(
          title = '14-day total cases per 100k residents by county',
          width = 12,
          height = 485,
          htmlOutput(ns("updatedText")),
          reactable::reactableOutput(
            ns("countyCasesTable"),
            height = "430px"
          ) %>%
            shinycssloaders::withSpinner(color = "#1E90FF")
        )
      ),
      col_7(
        custom_box(
          title = NULL,
          width = 12,
          height = 530,
          leaflet::leafletOutput(ns('covidMap'), height = 500) %>%
            shinycssloaders::withSpinner(color="#1E90FF")
        )
      )
    )
  )
}

#' map Server Function
#'
#' @noRd
mod_map_server <- function(input, output, session, irish_county_data){

  ns <- session$ns

  latest_irish_county_data <- reactive({
    irish_county_data %>%
      dplyr::filter(Date == max(Date)) %>%
      dplyr::mutate(last14per100k = format_decimal_number(last14per100k))
  })

  output$updatedText <- renderUI({
    latest_date <- max(irish_county_data$Date)
    text <- paste0("Updated: ", latest_date)
    color <- paste0("color: ", status_para_cor("primary"), ";")
    tags$span(text, style = color)
  })

  output$countyCasesTable <- reactable::renderReactable({
    latest_irish_county_data() %>%
      dplyr::arrange(dplyr::desc(last14per100k)) %>%
      dplyr::select(CountyName, Value = last14per100k) %>%
      dplyr::mutate(Value = format_decimal_number(Value, numeric = FALSE)) %>%
      sf::st_drop_geometry() %>%
      reactable::reactable(
        defaultPageSize = 20,
        height = 430,
        searchable = FALSE,
        pagination = FALSE,
        rownames = FALSE,
        columns = list(
          CountyName = reactable::colDef(
            align = "left"
          ),
          Value = reactable::colDef(
            align = "right"
          )
        )
      )
  })

  output$covidMap <- leaflet::renderLeaflet({
    latest_irish_county_data() %>%
      ireland_map() %>%
      leaflet::addMarkers(
        lat = ~LATITUDE,
        lng = ~LONGITUDE,
        icon = trend_icon(),
        popup = leafpop::popupGraph(make_leaflet_popup_plots(irish_county_data))
      ) %>%
      leaflet::addLegend(
        pal = leaflet_map_pal(latest_irish_county_data()),
        title = '14-day cases per 100k',
        values = ~last14per100k,
        opacity = 1.0
      )
  })

}