This function is called by the resp_shape module and loads a shapefile into an sf object. Inspired by a function written by Paula Moraga here: https://www.paulamoraga.com/book-geospatial/sec-shinyexample.html#uploading-data
resp_shape(shpdf, logger = NULL)
an sf object
shpdf <- data.frame(
datapath = list.files(system.file("extdata", "shapes", package = "disagapp"), full.names = TRUE),
name = list.files(system.file("extdata", "shapes", package = "disagapp")))
shape <- resp_shape(shpdf)