R/01.01_mod_select.R

In AFB-dataviz/dataviz_bnvd: Explore French pesticide sales data

# Module UI
  
#' @title   mod_select_ui and mod_select_server
#' @description  A shiny Module.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_select
#'
#' @keywords internal
#' @export 
#' @import shiny
#' 
mod_select_ui <- function(id, label = "", choices = "", selected = ""){
ns <- NS(id)
tagList(
  
  selectInput(inputId = ns("class"),
              label   = label,
              choices = choices,
              selected = selected)
)
}

# Module Server
    
#' @rdname mod_select
#' @export
#' @keywords internal
    
mod_select_server <- function(input, output, session){
  ns <- session$ns

  return(
    reactive({input$class})
  )
  
}

## To be copied in the UI
# mod_select_ui("select_ui_1")
    
## To be copied in the server
# callModule(mod_select_server, "select_ui_1")