# Load libraries
library(dplyr)
library(spData)
library(sf)
nz_data <- spData::nz |>
dplyr::rename(geometry = geom) |>
sf::st_transform(4326)
map() |>
add_fill_layer(
id = "nz_regions",
source = nz_data,
hover_column = "Name"
)
map() |>
add_fill_layer(
id = "nz_regions",
source = nz_data,
hover_column = "Name",
paint = get_paint_options(
"fill",
options = list(
colour = "#a3b18a",
opacity = 0.3,
outline_colour = "#588157"
)
)
)
Run the code above in your browser using DataLab