-
Notifications
You must be signed in to change notification settings - Fork 0
/
Scenario_workshops_2024_blog.es.qmd
116 lines (98 loc) · 6.23 KB
/
Scenario_workshops_2024_blog.es.qmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
---
title: "Próximos talleres de creación de escenarios mayo-junio de 2024"
categories :
- Talleres
- Creación de Escenarios
image: "impressions/workshop_locations_impression.png"
date: 2024/04/01
---
Nos complace anunciar que celebraremos los primeros talleres como parte del proceso participativo de creación de escenarios en mayo y junio de 2024.
El objetivo de estos talleres es producir visiones de cuáles son las características deseables del futuro paisaje de Perú en 2060 desde la perspectiva de un grupo diverso de participantes. Los resultados de los talleres alimentarán el desarrollo de los escenarios que describen los cambios necesarios para llegar a los paisajes deseados. Puede encontrar más información sobre nuestro enfoque en la página del [proyecto](project.qmd#workshops).
Comenzaremos con un taller nacional en Lima, seguido de talleres regionales en cuatro lugares que se muestran en el mapa interactivo de abajo.
```{r}
#| echo: false
#| warning: false
library(leaflet)
library(fontawesome) #devtools::install_github("rstudio/fontawesome")
library(mapview)
national <- makeAwesomeIcon(text = fa("people-roof"),
iconColor = 'white',
library = 'fa',
markerColor = 'darkgreen')
regional <- makeAwesomeIcon(text = fa("people-roof"),
iconColor = 'white',
library = 'fa',
markerColor = 'lightgreen')
#uncomment for saving map
#Workshop_locations <-
leaflet(options = leafletOptions(zoomControl = FALSE,
attributionControl=FALSE)) %>%
#addProviderTiles(providers$Esri.WorldTerrain) %>%
addTiles() %>% # Add default OpenStreetMap map tiles
addAwesomeMarkers(lng=-77.043,
lat=-12.038,
icon= national,
popup="Lima, Taller Nacional 9 de Mayo",
label = "Lima, Taller Nacional 9 de Mayo",
labelOptions = labelOptions(#noHide = TRUE,
direction = "bottom",
style = list("color" = "black",
"font-family" = "Roboto",
"font-style" = "italic",
"box-shadow" = "3px 3px rgba(0,0,0,0.25)",
"font-size" = "12px",
"border-color" = "rgba(0,0,0,0.5)")))%>%
addAwesomeMarkers(lng=-69.189, lat=-12.594, icon = regional, popup="Puerto Maldonado, Taller Regional", label = "Taller Regional de Puerto Maldonado 28 de Mayo",
labelOptions = labelOptions(#noHide = TRUE,
direction = "bottom",
style = list("color" = "black",
"font-family" = "Roboto",
"font-style" = "italic",
"box-shadow" = "3px 3px rgba(0,0,0,0.25)",
"font-size" = "12px",
"border-color" = "rgba(0,0,0,0.5)")))%>%
addAwesomeMarkers(lng=-77.529, lat=-9.526, icon = regional, popup="Huaraz, Taller Regional", label = "Huaraz, Taller Regional 4 de Junio",
labelOptions = labelOptions(#noHide = TRUE,
direction = "bottom",
style = list("color" = "black",
"font-family" = "Roboto",
"font-style" = "italic",
"box-shadow" = "3px 3px rgba(0,0,0,0.25)",
"font-size" = "12px",
"border-color" = "rgba(0,0,0,0.5)")))%>%
addAwesomeMarkers(lng=-76.370, lat=-6.485, icon = regional, popup="Tarapoto, Taller Regional", label = "Tarapoto, Taller Regional 10 de Junio",
labelOptions = labelOptions(#noHide = TRUE,
direction = "bottom",
style = list("color" = "black",
"font-family" = "Roboto",
"font-style" = "italic",
"box-shadow" = "3px 3px rgba(0,0,0,0.25)",
"font-size" = "12px",
"border-color" = "rgba(0,0,0,0.5)")))%>%
addAwesomeMarkers(lng=-80.63282, lat=-5.19449, icon = regional, popup="Piura, Taller Regional", label="Piura, Taller Regional 20 de Mayo",
labelOptions = labelOptions(#noHide = TRUE,
direction = "bottom",
style = list("color" = "black",
"font-family" = "Roboto",
"font-style" = "italic",
"box-shadow" = "3px 3px rgba(0,0,0,0.25)",
"font-size" = "12px",
"border-color" = "rgba(0,0,0,0.5)")))
#save as html
# mapview::mapshot2(x= Workshop_locations,
# url = "img/Workshop_locations.html",
# remove_controls = NULL,
# cliprect = "viewport",
# selfcontained = TRUE)
# #save image
# mapview::mapshot2(x= Workshop_locations,
# file = "img/workshop_locations.png",
# remove_controls = TRUE,
# #vwidth=1800,
# #vheight=950,
# #cliprect = "viewport",
# cliprect = c(40, 30, 620, 875), #ALL OF PERU
# expand= c(400,0,0,700),
# #,selfcontained = TRUE
# )
```