library(leaflet)
library(rgdal)
library(data.table)
pha <- readOGR(dsn = '../data/TMMESTSKECASTI_P_shp/TMMESTSKECASTI_P.shp',
layer = 'TMMESTSKECASTI_P',
verbose = FALSE)
stanice <- readRDS(file = '../data/meta_wgs84.rds')
icons <- makeAwesomeIcon(
icon = 'tint',
markerColor = 'darkblue',
iconColor = 'white'
)
leaflet() %>%
addPolygons(
data = pha,
color = 'black',
weight = 1,
smoothFactor = 0.5,
opacity = 1.0,
fillOpacity = 0.25,
# fillColor = 'royalblue',
highlightOptions = highlightOptions(color = 'white',
weight = 2,
bringToFront = TRUE
),
label = ~NAZEV_MC
) %>%
addAwesomeMarkers(
icon = icons,
data = stanice,
lng = ~lng,
lat = ~lat,
layerId = ~Znacka,
label = paste(stanice$Znacka, '-', stanice$Lokalita),
popup = paste('<b>', stanice$Znacka, '-', stanice$Lokalita, '</b>',
'<br/>',
'Měření:',
'<br/>',
'od -', stanice$od,
'<br/>',
'do -', stanice$do),
group = 'Old'
) %>%
addLayersControl(
overlayGroups = c('Old', 'New'),
options = layersControlOptions(collapsed = FALSE)
) %>%
addTiles()