R/mod_chart_nmtloc.R

In jacciz/shiny_wisdot_crash_dashboard: WisDOTcrashdashboard

#' chart_nmtloc UI Function
#'
#' @description A shiny Module.
#' @import plotly 
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
mod_chart_nmtloc_ui <- function(id) {
  tagList(plotlyOutput(shiny::NS(id, "nmtloc_chart", height = "340px")))
}
    
#' chart_nmtloc Server Function
#'
#' @noRd 
mod_chart_nmtloc_server <- function(id, persons_df) {
  shiny::moduleServer(id, function(input, output, session) {
    output$nmtloc_chart <- renderPlotly({
      if (dim(persons_df() |> dplyr::filter(.data[["NMTLOC"]] != ''))[1] == 0) {
        plotly_empty(type = "bar") |> layout(
          title = list(
            text = "\nNo Pedestrians or Cyclists",
            font = chart_title,
            x = 0
          ),
          plot_bgcolor = 'rgba(0,0,0,0)',
          # make transparent background
          paper_bgcolor = 'rgba(0,0,0,0)'
        )
      } else {
        # nmtloc <- persons_df() |>
        # select(NMTACT01:NMTACT12) |> pivot_longer(NMTACT01:NMTACT12) |> filter(value !='')
        # make freq table, remove variables, arrange and take top 8
        nmtloc_table <-
          table(nmtloc_count = persons_df()[["NMTLOC"]]) |> tibble::as_tibble() |>
          dplyr::filter(.data[["nmtloc_count"]] != '') |>
          # filter(nmtact_count != "No Improper Action",
          # nmtact_count != "Unknown") |>
          dplyr::arrange(dplyr::desc(.data[["n"]])) |> utils::head(8)
        #  reorder(drvrpc_count, n)   str_wrap(drvrpc_count, width = 15)
        plot_ly(
          nmtloc_table,
          type = 'bar', 
          orientation = 'h',
          x = ~ n,
          # y = ~ reorder(nmtloc_count, n),
          y = ~ stats::reorder(stringr::str_wrap(nmtloc_count, width = 30), n), 
          # reorder from big to small values, also wrap text
          marker = list(color = "#4fb9db"),
          # blue!
          hovertemplate = paste('%{y}', '<br>%{x: .0f} Crashes<br><extra></extra>'),
          text = ~sprintf("<b>%s</b>", format(n, big.mark = ",")),
          # bar end number
          textfont = chart_axis_bar,
          textposition = 'outside',
          cliponaxis = FALSE
        ) |> #labels = function(x) str_wrap(drvrpc_count, width = 15)
          layout(
            title = list(
              text = "\nTop Locations of Pedestrians and Cyclists",
              font = chart_title,
              x = 0
            ),
            margin = list(r = 40, # set to 30 so labels don't get cut off
                          l = 200, # so axis label don't get cut off
                          # t = 0, # this will cut off title
                          b = 0),
            xaxis = list(
              title = "",
              showgrid = FALSE,
              showticklabels = FALSE # remove axis labels
            ),
            yaxis = list(title = "", tickfont = chart_axis),
            plot_bgcolor = 'rgba(0,0,0,0)',
            # make transparent background
            paper_bgcolor = 'rgba(0,0,0,0)'
          ) |>  plotly_config("Locations of Pedestrians and Cyclists")
      }
    })
  })
}

    
## To be copied in the UI
# mod_chart_nmtloc_ui("chart_nmtloc_ui_1")
    
## To be copied in the server
# callModule(mod_chart_nmtloc_server, "chart_nmtloc_ui_1")