R/server_modulo_indicadores.R

In tomicapretto/cemrepboot: What the Package Does (One Line, Title Case)

indicadoresServer = function(id, rvs) {
  moduleServer(id, function(input, output, session) {

    observeEvent(input$indicador, {
      if (input$indicador == "Razon") {
        shinyjs::show("razon")
        shinyjs::hide("univariado")
      } else {
        shinyjs::hide("razon")
        shinyjs::show("univariado")
      }

      if (input$indicador == "Total") {
        shinyjs::show("total_categorias")
      } else {
        shinyjs::hide("total_categorias")
      }
    })
  })
}