library(sf)

## Linking to GEOS 3.9.1, GDAL 3.2.1, PROJ 7.2.1; sf_use_s2() is TRUE

library(usethis)

src <- "http://cdmaps.polisci.ucla.edu/shp/districts113.zip"
dsn_districts <- use_zip(src, destdir = fs::path("data_work"))

dsn_districts <- fs::path(fs::path_wd(), "data", "districtShapes")

st_layers(dsn_districts)

## Driver: ESRI Shapefile 
## Available layers:
##     layer_name geometry_type features fields
## 1 districts113       Polygon      436     15