R/mod_select.R

In CedricMondy/EspecesProtegees: Explore observations of protected species

#' select_precision UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @import shiny
mod_select_ui <- function(id, placeholder, choices){
  select_choices <- c("", choices)
  
  if (length(names(choices)) == 0) {
    names(select_choices) <- c(placeholder, rep("", length(choices)))
  } else {
    names(select_choices) <- c(placeholder, names(choices))
  }
    
  ns <- NS(id)
  tagList(
    selectInput(
      inputId = ns("select"),
      label = "",
      choices = select_choices,
      selected = "",
      multiple = TRUE
    )
  )
}
    
#' select_precision Server Function
#'
#' @import shiny
#' @noRd 
mod_select_server <- function(id){
  moduleServer(
    id,
    function(input, output, session){
      reactive({
        input$select
      })
    }
  )
}