Interactive map or large spatial data sets (demo geobr)

interactive_large_spatial.R

# Libraries
  library(geobr)
  library(leafgl)
  library(leaflet)
  library(sf)
  library(colourvalues)

# get data of disaster risk areas in Brazil using the geobr package
  d <- geobr::read_disaster_risk_area(year=2010)

 # format conversion to work in leafgl
  d2 <- sf::st_cast(d, 'POLYGON')

# set colors
  cols = colour_values_rgb(d$code_state, palette = "inferno", include_alpha = FALSE) / 255

# Plot map
  leaflet() %>%
    addProviderTiles(provider = providers$CartoDB.DarkMatterNoLabels) %>%
    addGlPolygons(data = d2, group = "pols", color= cols)