Merge branch 'evolutivo_paises' of https://github.com/calejero/dashboard_cvirus into evolutivo_paises

Author: jcalejero

.gitignore

@@ -5,6 +5,7 @@ library(tidyverse)
 library(leaflet)
 library(shinydashboard)
 
+
 source(paste0(getwd(), "/model/generate_data.R"))
 
 # nos bajamos  los datos, actualizados a día de ayer ----
@@ -37,7 +38,27 @@ cvirus_longer <-  cvirus_longer %>%
 # mapa con el último dato -----
 ## sub graphs 
 
-res <- GenerateCountryEvolutionData(cvirus_longer)
+res  <- cvirus_longer %>% 
+    # filter(provincia_estado!= "Diamond Princess") %>% 
+    group_by(pais, fecha) %>% 
+    arrange(fecha) %>%
+    arrange(-casos) %>% 
+    summarise(casos = sum(casos),
+              Lat = first(Lat),
+              Long = first(Long)) %>% 
+    mutate(casos_prev_day = lag(casos, n = 1,  default = 0),
+           casos_nuevos = casos - casos_prev_day) %>% 
+    filter(casos >= 5) %>%
+    mutate(
+        casos_nuevos = if_else(casos_nuevos==0,
+                               lag(casos_nuevos,1),
+                               casos_nuevos),
+        dia_since_5 = row_number()) 
+
+
+
+
+
 
 
 cvirus_map_data <- res %>% 

load_data.R

@@ -28,9 +28,7 @@ sidebar <- dashboardSidebar(
                          menuSubItem("Comparación paises", icon = icon("list-alt"),
                                      tabName = "compare_countries"),
                          menuSubItem("Pdte", icon = icon("calendar"),
-                                     tabName = "pdte"),
-                         menuSubItem("Evolutivo", icon = icon("calendar"),
-                                     tabName = "Tabla_evolutivo")
+                                     tabName = "pdte")
                 ),
                 br(),
                 br()