R/mod_summaryTable1Output.R

In SimonCoulombe/gwells_shiny: A shiny app for GWELLS QAQC

#' summaryTable1Output UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
mod_summaryTable1Output_ui <- function(id){
  ns <- NS(id)
  tagList(
    gt::gt_output(outputId = ns("table"))
  )
}

#' summaryTable1Output Server Functions
#'
#' @noRd 
mod_summaryTable1Output_server <- function(id,d){
  moduleServer( id, function(input, output, session){
    message("run  mod_summaryTable1Output_server")
    output$table <- gt::render_gt({
      data <- d()
      df <- data$df
      date_added_min <- data$date_added_min
      date_added_max <- data$date_added_max
      wtn_min <- data$wtn_min
      wtn_max <- data$wtn_max
      
      region_intended_use_counts <-
        df %>% 
        group_by(nr_region_name) %>%
        count(my_intended_water_use) %>%
        spread(key=my_intended_water_use, value = n, fill = 0)
      
      df %>% 
        group_by(nr_region_name) %>%
        summarise(
          Total = n()
        ) %>% 
        left_join(region_intended_use_counts)%>% 
        gt(rowname_col = "nr_region_name") %>%
        tab_header(
          title = "Summary Table 1 - Count of intended use code by region ",
          subtitle = paste0("for date_added between ",
                            date_added_min, " and ", date_added_max,
                            " and well tag number between ", wtn_min, " and ", wtn_max)
        ) %>%
        fmt_number(columns = everything(), decimals = 0) %>% 
        summary_rows(
          # columns = is.numeric(),
          fns = list(Total = "sum"),
          decimals = 0
        )
    })
  })
}

## To be copied in the UI
# mod_summaryTable1Output_ui("summaryTable1Output_ui_1")

## To be copied in the server
# mod_summaryTable1Output_server("summaryTable1Output_ui_1")