Я нахожусь на Мохаве, и это прекрасно работает:
httr::GET(
url = "http://biogeo.ucdavis.edu/data/diva/rds/AFG_rds.zip",
httr::write_disk("AFG_rds.zip"),
httr::progress()
) -> res
fils <- unzip("AFG_rds.zip", exdir = "afg-roads")
fils
## [1] "afg-roads/AFG_roads.dbf" "afg-roads/AFG_roads.prj"
## [3] "afg-roads/AFG_roads.shp" "afg-roads/AFG_roads.shx"
rgdal::readOGR("afg-roads/AFG_roads.shp")
## OGR data source with driver: ESRI Shapefile
## Source: "/Users/bob/Development/afg-roads/AFG_roads.shp", layer: "AFG_roads"
## with 1409 features
## It has 5 fields
## class : SpatialLinesDataFrame
## features : 1409
## extent : 60.6075, 74.67168, 29.38582, 38.48983 (xmin, xmax, ymin, ymax)
## coord. ref. : +proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0
## variables : 5
## names : MED_DESCRI, RTT_DESCRI, F_CODE_DES, ISO, ISOCOUNTRY
## min values : Unknown, Primary Route, Road, AFG, AFGHANISTAN
## max values : Without Median, Unknown, Trail, AFG, AFGHANISTAN