Update ui.R

ODES-Chile · Apr 28, 2023 · b857d82 · b857d82
1 parent 5b6f6ee
commit b857d82
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ui.R b/ui.R
@@ -27,10 +27,10 @@ page_navbar(
 
         conditionalPanel(
           "input.showpanel",
-          selectInput("macrozona", tags$small("Macrozona"), opt_macrozona, selected = "zona central"),
+          selectInput("macrozona", tags$small("Macrozona"), opt_macrozona, selected = "zona central", multiple = TRUE),
           selectInput("unidad", tags$small("Unidad administrativa"), opt_unidad),
           selectInput("variable", tags$small("Variable"), opt_variable, selected = "pre"),
-          sliderTextInput("fecha", tags$small("Fecha"), opt_fecha, selected = max(opt_fecha)),
+          sliderTextInput("fecha", tags$small("Fecha"), opt_fecha, selected = c(tail(opt_fecha, 12 * 20)[1], tail(opt_fecha, 1))),
 
           conditionalPanel(
             "input.showchart",