ben/wisconsin_crashes
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added Spanish translation for dynamic map

Browse source
This commit is contained in:
Ben Varick 2024-05-14 16:37:29 -05:00
parent 502efff018
commit 428af27b98
Signed by: ben
SSH key fingerprint: SHA256:758jG979jvr5HnQJl1AQ/NYTyzXRgnuoVM/yCR024sE
5 changed files with 20 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

9
scripts/dynamic_crash_map.R
View file

@ -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</br>",
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,