Select Total by default in ccaa graf

Author: joscani

load_data.R

@@ -340,9 +340,11 @@ ccaa_data_subplots <-  ccaa_longer %>%
         dia_since_1 = row_number()
     )
 
+ccaa_data_subplots$pob2019[ccaa_data_subplots$CCAA == "Total"] <-
+    sum( unique( ccaa_data_subplots$pob2019[ ccaa_data_subplots$CCAA != "Total"] ),
+        na.rm = TRUE)
 
-
-ccaas_choice <-  setdiff(unique(ccaa_data_subplots$CCAA), "Total")
+ccaas_choice <- unique(ccaa_data_subplots$CCAA)
 var_ccaa_list <- c("casos",
                    "recuperados",
                    "ingresos_uci",

server_dir/tabla_evolutivo_ccaa_server.R

@@ -5,7 +5,7 @@ require(highcharter)
 reactive_ccaas_selected <- reactive({
 
   tmp <- ccaa_data_subplots %>%
-    filter(CCAA != "Total" & casos >= input$contagiado_n) %>%
+    filter( casos >= input$contagiado_n) %>%
     mutate(dias = row_number()) %>% 
     select_at(c("CCAA","fecha", input$ccaa_indicador1, "pob2019", "dias")) %>% 
     filter(CCAA %in% input$ccaa_selected)
@@ -15,9 +15,6 @@ reactive_ccaas_selected <- reactive({
 
 })
 
-
-
-
 output$tabla_evolutivo_ccaa <- renderHighchart({
 
   validate(
@@ -79,8 +76,6 @@ output$tabla_evolutivo_ccaa_raw <- renderHighchart({
 
 })
 
-
-
 output$tabla_evolutivo_ccaa_inc_relativo <- renderHighchart({
 
   validate(

ui_dir/tabla_evolutivo_ccca_ui.R

@@ -15,7 +15,7 @@ tab_evolutivo_ccaa <- tabItem(
           "ccaa_selected",
           "Selecciona Comunidad autónoma",
           choices = ccaas_choice,
-          selected = sample(ccaas_choice, 3),
+          selected = "Total",
           multiple = TRUE,
           selectize = TRUE
         ),
@@ -63,8 +63,11 @@ tab_evolutivo_ccaa <- tabItem(
         tabPanel("Indicadores", highchartOutput("tabla_evolutivo_ccaa_raw")),
         tabPanel("Indicadores x 100 mil habitante", highchartOutput("tabla_evolutivo_ccaa"))
       ),
+     
       tabsetPanel(
-        tabPanel("Incrementos relativos", highchartOutput("tabla_evolutivo_ccaa_inc_relativo"))
+        tabPanel("Incrementos relativos", highchartOutput("tabla_evolutivo_ccaa_inc_relativo")),
+        p(" Ejemplo: Eligiendo como indicador el número de fallecidos, y 7 días atrás nos muestra
+          el incremento relativo. Si es 1 significa que 7 días sería el tiempo de duplicación del número de fallecidos. El objetivo final sería llegar a valor -1 que implicaría que en ese período (7 días ) no se ha producido  ningún fallecido más ")
       )
     )
   )