# Load libraries
library(spData)
library(sf)
seine_data <- spData::seine |>
sf::st_transform(4326)
map() |>
set_bounds(bounds = seine_data, padding = 100) |>
add_line_layer(
id = "seine_lines",
source = seine_data,
hover_column = "name"
)
map() |>
set_bounds(bounds = seine_data, padding = 100) |>
add_line_layer(
id = "seine_lines",
source = seine_data,
hover_column = "name",
paint = get_paint_options(
"line",
options = list(
colour = get_column_group(
"name",
c("Marne" = "#014f86", "Seine" = "#61a5c2"),
"#a9d6e5"
),
line_width = get_column_group("name", c("Seine" = 3), 1)
)
)
)
Run the code above in your browser using DataLab