From 60ccbc5f24b25272903bdcbda72efb43beac8e23 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Francesc=20Catal=C3=A0-Moll?= Date: Mon, 11 May 2026 15:53:17 +0200 Subject: [PATCH 1/3] Update module_map.R --- R/module_map.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/module_map.R b/R/module_map.R index a9fb509..0c62915 100644 --- a/R/module_map.R +++ b/R/module_map.R @@ -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") { From f18f599123196eac662b446ae2e543dd57f4c7d9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Francesc=20Catal=C3=A0-Moll?= Date: Mon, 11 May 2026 16:35:50 +0200 Subject: [PATCH 2/3] Update module_map.R --- R/module_map.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/module_map.R b/R/module_map.R index 0c62915..ea65da2 100644 --- a/R/module_map.R +++ b/R/module_map.R @@ -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 { From af0eb0da144c0977cc01d2a083015ae55cbdf4a9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Francesc=20Catal=C3=A0-Moll?= Date: Mon, 11 May 2026 16:36:48 +0200 Subject: [PATCH 3/3] Update module_map.R --- R/module_map.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/module_map.R b/R/module_map.R index ea65da2..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