# 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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.