R/mod_shape_bar.R

In asbates/ufo.sightings: UFO Sightings Dashboard

#' shape_bar UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_shape_bar_ui <- function(id){
  ns <- NS(id)
  tagList(
    box(
      plotlyOutput(ns("shape_bar_chart")),
      title = "Number of Sightings of Each Shape",
      width = 12,
      maximizable = TRUE,
      status = "primary"
    )
  )
}

#' shape_bar Server Function
#'
#' @noRd
mod_shape_bar_server <- function(input, output, session){
  ns <- session$ns

  shape_counts <- ufosightings::shape_counts

  output$shape_bar_chart <- renderPlotly({
    # color for marker is same as for dashboard skin
    # see shinydashboard/inst/AdminLTE/_all_skins.css '.skin-green'
    plot_ly(
      shape_counts,
      x = ~ shape,
      y = ~ sightings,
      hoverinfo = "text",
      marker = list(color = "#3cd070")
    ) %>%
      add_bars(
        text = ~paste(scales::comma(sightings, accuracy = 1))
      ) %>%
      layout(
        xaxis = list(title = ""),
        yaxis = list(title = "Number of sightings"),
        plot_bgcolor = "#e6edf2",
        paper_bgcolor = "#e6edf2"
      )
  })

}

## To be copied in the UI
# mod_shape_bar_ui("shape_bar_ui_1")

## To be copied in the server
# callModule(mod_shape_bar_server, "shape_bar_ui_1")