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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map.html
View File

File diff suppressed because one or more lines are too long

6
figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_es.html
View File

File diff suppressed because one or more lines are too long

6
figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_es_title.html
View File

File diff suppressed because one or more lines are too long

6
figures/dynamic_crash_maps/wisconsin_pedestrian_crash_map_title.html
View File

File diff suppressed because one or more lines are too long

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,