-
Notifications
You must be signed in to change notification settings - Fork 0
/
script_ligero.R
36 lines (30 loc) · 1.05 KB
/
script_ligero.R
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
library(tidyverse)
library(here)
library(raster)
library(sf)
library(leaflet)
sn <- st_read(here::here("data/sn_enp.shp"), quiet = TRUE)
sn <- st_transform(sn, 4326)
mapita <- leaflet() %>%
# Añadir capas
addTiles() %>% # Open Street map
# Añadir otras capas
addMarkers(lng=-3.311572, lat=37.053434, popup="Mulhacen") %>%
addPolygons(data = sn,
group= 'Natural Park',
fillOpacity = 0,
color = "blue")
mapita_final <-
mapita %>%
addProviderTiles("Esri.WorldImagery",
group = "Satellite (ESRI)") %>%
addWMSTiles("http://www.ign.es/wms-inspire/pnoa-ma?",
layers = 'OI.OrthoimageCoverage',
options = WMSTileOptions(format = "image/png", transparent = TRUE),
group = "PNOA") %>%
addLayersControl(position = 'bottomright',
baseGroups = c('Open Street Map','Satellite (ESRI)','PNOA'),
overlayGroups = c('Natural Park'))
mapita_final
library(htmlwidgets) # HTML Widgets for R
saveWidget(mapita_final, "index.html")