diff --git a/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map.html b/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map.html index da78a1d..e4493ad 100644 --- a/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map.html +++ b/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map.html @@ -5254,9 +5254,9 @@ function asArray(value) {
-
+
- - + + diff --git a/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_es.html b/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_es.html index cda7d03..a1a89ed 100644 --- a/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_es.html +++ b/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_es.html @@ -5254,9 +5254,9 @@ function asArray(value) {
-
+
- - + + diff --git a/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_es_title.html b/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_es_title.html index e0fc2a0..3bf346f 100644 --- a/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_es_title.html +++ b/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_es_title.html @@ -5254,9 +5254,9 @@ function asArray(value) {
-
+
- - + + diff --git a/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_title.html b/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_title.html index 167c4e2..2766ab6 100644 --- a/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_title.html +++ b/figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_title.html @@ -5254,9 +5254,9 @@ function asArray(value) {
-
+
- - + + diff --git a/scripts/dynamic_crash_map.R b/scripts/dynamic_crash_map.R index 2c56a8d..bb62923 100644 --- a/scripts/dynamic_crash_map.R +++ b/scripts/dynamic_crash_map.R @@ -292,8 +292,15 @@ saveWidget(wisconsin_crash_map_es, file = "figures/dynamic_crash_maps/wisconsin_ selfcontained = TRUE, title = "Mapa de Choques de Bicicletas y Peatones en Wisconsin") +title_es <- tags$div( + tag.map.title, HTML(paste0("Peatones y ciclistas involucrados en un choque
", + min(year(TOPS_data$date), na.rm = TRUE), + " - ", + max(year(TOPS_data$date), na.rm = TRUE))) +) + wisconsin_crash_map_es_title <- wisconsin_crash_map_es %>% - addControl(title, position = "topleft", className="map-title") + addControl(title_es, position = "topleft", className="map-title") saveWidget(wisconsin_crash_map_es_title, file = "figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_es_title.html", selfcontained = TRUE,