experiments/edit_map_draw_border.R

library(sp)
library(sf)
library(leaflet)
library(albersusa)
library(mapedit)
library(dplyr)

usa_sf <- usa_composite() %>% st_as_sf()
borders <- usa_sf %>%
  filter(usa_sf$iso_3166_2 %in% c("AZ","CA")) %>%
  leaflet() %>%
  addPolygons() %>%
  editMap()

plot(borders$finished)
r-spatial/mapedit documentation built on March 29, 2022, 5:42 p.m.