diff --git a/R/module_map.R b/R/module_map.R index a9fb509..264c87a 100644 --- a/R/module_map.R +++ b/R/module_map.R @@ -121,8 +121,8 @@ map_module_server <- function(id) { } df_map$dat %>% - dplyr::filter(date <= format_date_max & - date >= format_date_min) + dplyr::filter(as.Date(date) <= format_date_max & + as.Date(date) >= format_date_min) }) ## Base map @@ -156,7 +156,7 @@ map_module_server <- function(id) { } map <- df_map$bs_map$base_map - p <- map$acom_name %>% + p <- map$acom_name[-7] %>% purrr::set_names() %>% purrr::map(function(x) { if (x == "Territorio no asociado a ninguna autonomía") { @@ -171,7 +171,7 @@ map_module_server <- function(id) { text = "No data for this region on selected dates" ) %>% ggplot(aes(x, y, label = text)) + - theme_void(base_family = 20) + + theme_void(base_size = 20) + geom_text() } else {