Model folder + others

Author: jcalejero

model/generate_data.R

@@ -0,0 +1,20 @@
+GenerateCountryEvolutionData <- function(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()) 
+     
+     return(res)
+   }

server_dir/tabla_evolutivo_server.R

@@ -0,0 +1,34 @@
+library(shinydashboard)
+library(plotly)
+
+
+output$tabla_evolutivo_paises <- renderPlotly({
+  data.df <- GenerateCountryEvolutionData(cvirus_longer)
+  max.c <- max(data.df$fecha)
+  aux.df <- data.df[data.df$fecha == max.c, ]
+  aux.df <- aux.df[order(aux.df$casos, decreasing = TRUE), ]
+  aux.df <- aux.df[1:10, ]
+  data.df <- data.df[data.df$pais %in% aux.df$pais, ]
+  #data.df <- data.df[data.df$pais == 'Spain', ]
+  fig <- plot_ly(data.df, x = ~dia_since_5, y = ~casos, name = ~pais, type = 'scatter', mode = 'lines', color = ~pais
+                 ) 
+  
+  f <- list(
+    family = "Courier New, monospace",
+    size = 18,
+    color = "#7f7f7f"
+  )
+  
+  x <- list(
+    title = "Día desde alcanzar 5 casos",
+    titlefont = f
+  )
+  
+  y <- list(
+    title = "Número de casos",
+    titlefont = f
+  )
+  
+  fig <- fig %>% layout(xaxis = x, yaxis = y)
+  fig
+})

ui.R

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