R/mod_evolutions.R

In tvroylandt/gravitype: Gravity Pole emploi

# Module UI

#' @title   mod_evolutions_ui and mod_evolutions_server
#' @description  Module evolutions
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_evolutions
#'
#' @keywords internal
#' @export
#' @importFrom shiny NS tagList
mod_evolutions_ui <- function(id) {
  ns <- NS(id)
  tagList(plotOutput(ns("evols")))
}

# Module Server

#' @rdname mod_evolutions
#' @import ggplot2
#' @import tidyr
#' @import dplyr
#' @import patchwork
#' @importFrom forcats fct_recode
#' @importFrom forcats fct_relevel
#' @importFrom stringr str_wrap
#' @export
#' @keywords internal
#'

mod_evolutions_server <- function(input, output, session, r) {
  ns <- session$ns
  
  output$evols <- renderPlot({
    graph_evol_patchwork(data = r$df_filtre_fap_nat,
                         fap87_filtre = r$fap87_filtre)
    
  }, height = 700)
}

## To be copied in the UI
# mod_evolutions_ui("evolutions_ui_1")

## To be copied in the server
# callModule(mod_evolutions_server, "evolutions_ui_1")