read_shp(): R function to read zipped shapefiles

read_shp.R

read_shp <- function(filepath) {
  # If zipped
  if (stringr::str_ends(filepath, ".zip")) {
    temp1 <- tempfile()
    unzip(zipfile = filepath, exdir = temp1)
    d <- sf::read_sf(temp1)
    unlink(temp1, recursive = TRUE)
    return(d)
  }
  # If not zipped
  sf::read_sf(filepath)
}