Alerta si no se selecciona BD o tipo incidente.

CentroGeo · May 26, 2021 · 0fc8a5a · 0fc8a5a
1 parent ee67287
commit 0fc8a5a
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/mod_DBSelector.R b/R/mod_DBSelector.R
@@ -106,7 +106,11 @@ mod_DBSelector_server <- function(input, output, session,
   interval_ba_rea, datos_filtrados) {
     ns <- session$ns
     #### Read
-    datafram_re <- reactive({
+    datafram_re <- reactive({ 
+      validate(
+        need(!is.null(input$filtro_bd) & !is.null(input$filtro_incidente),
+            'Por favor selecciona al menos una base de datos y un tipo de incidente')
+      )
       filtro_incidente <- input$filtro_incidente
       filtro_bd <- input$filtro_bd
       filtro_intervalo <- interval_ba_rea()