In einarhjorleifsson/gisland: Map data with focus on Icelandic ecoregion

knitr::opts_chunk$set(
  message = FALSE, 
  warning = FALSE,
  collapse = TRUE,
  error = TRUE,
  comment = "#>"
)

library(sf)
library(tidyverse)
library(gisland)

What is on the menu?:

gl_lmi_features() |> 
  select(-title) |> 
  kableExtra::kbl(full_width = F) |>
  kableExtra::kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"))

Lets get one dish:

gl <- 
  read_lmi("LHG:grunnlina")
glimpse(gl)
# MULTICURVE is an odd geom, thus ...
gl <-
  gl |> 
  sf::st_cast("MULTILINESTRING")
gl |> 
  ggplot() +
  geom_sf()