R/mod_search_taxon.R

In CedricMondy/EspecesProtegees: Explore observations of protected species

#' search_taxon UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @import shiny
mod_search_taxon_ui <- function(id){
  ns <- NS(id)
  
  tagList(
    selectInput(
       inputId = ns("taxon"),
       label = "",
       choices = search_taxon(birds)
    )
  )
}
    
#' search_taxon Server Function
#'
#' @noRd 
#' @import shiny
#' @importFrom dplyr filter
mod_search_taxon_server <- function(id, data){
  moduleServer(
    id,
    function(input, output, session){

      observeEvent(data(),
                   {
                     updateSelectInput(
                       session = session,
                       inputId = "taxon",
                       choices = search_taxon(data())
                       )
                     })
      
      reactive({
        if (input$taxon != "") {
          data() %>% 
          filter(
            nom_vernaculaire %in% input$taxon |
              espece %in% input$taxon |
              famille %in% input$taxon |
              ordre %in% input$taxon
              
          )
        } else {
          data()
        }
        
      })
      
    }
  )
}