# 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