R/mod_input_fap.R

Defines functions mod_input_fap_ui mod_input_fap_server

Documented in mod_input_fap_server mod_input_fap_ui

# Module UI

#' @title   mod_input_fap_ui and mod_input_fap_server
#' @description  Input et "stratégie du petit r"
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_input_fap
#'
#' @keywords internal
#' @export
#' @importFrom shiny NS tagList
mod_input_fap_ui <- function(id) {
  ns <- NS(id)
  tagList(selectInput(
    ns("fap87_filtre"),
    "Choississez un métier :",
    choices = liste_fap87,
    selected = "A0Z"
  ))
}

# Module Server

#' @rdname mod_input_fap
#' @export
#' @keywords internal

mod_input_fap_server <- function(input, output, session, r) {
  ns <- session$ns
  observeEvent(input$fap87_filtre, {
    # filtre en reactive
    r$fap87_filtre <- input$fap87_filtre
    
    # dataset filtre en reactive
    r$df_filtre_fap_nat <- data_tensions_nat_fap %>%
      filter(fap87 %in% c(input$fap87_filtre, "Global"))
    
  })
}

## To be copied in the UI
# mod_input_fap_ui("input_fap_ui_1")

## To be copied in the server
# callModule(mod_input_fap_server, "input_fap_ui_1")
tvroylandt/gravitype documentation built on Feb. 7, 2020, 2:37 a.m.