library(sf)
nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
cfg <- configure_inset(
centre = st_sfc(st_point(c(-82, 35)), crs = 4326),
scale = 2,
translation = c(10, -60),
radius = 50,
units = "mi")
transform_to_inset(nc, cfg)
Run the code above in your browser using DataLab