Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # devtools::install_github("rstudio/leaflet", force = TRUE)
- library(leaflet)
- library(sf)
- ### polygons --------------------------------------------------------------
- poldata <- st_as_sf(mapview::gadmCHE)
- class(poldata)
- class(st_geometry(poldata))
- class(st_geometry(poldata)[[1]])
- leaflet() %>% addTiles() %>% addPolygons(data = poldata)
- leaflet() %>% addTiles() %>% addPolygons(data = st_geometry(poldata))
- leaflet() %>% addTiles() %>% addPolygons(data = st_geometry(poldata)[[1]]) # error
- ### lines -----------------------------------------------------------------
- lindata <- st_as_sf(mapview::atlStorms2005)
- class(lindata)
- class(st_geometry(lindata))
- class(st_geometry(lindata)[[1]])
- leaflet() %>% addTiles() %>% addPolylines(data = lindata) # error
- leaflet() %>% addTiles() %>% addPolylines(data = st_geometry(lindata)) # error
- leaflet() %>% addTiles() %>% addPolylines(data = st_geometry(lindata)[[1]]) # error
- ### points ----------------------------------------------------------------
- ptsdata <- st_as_sf(mapview::breweries91)
- class(ptsdata)
- class(st_geometry(ptsdata))
- class(st_geometry(ptsdata)[[1]])
- leaflet() %>% addTiles() %>% addCircleMarkers(data = ptsdata)
- leaflet() %>% addTiles() %>% addCircleMarkers(data = st_geometry(ptsdata))
- leaflet() %>% addTiles() %>% addCircleMarkers(data = st_geometry(ptsdata)[[1]]) # error
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement