无法在tempdir()中打开GitHub格式文件

Question

我想通过*zip下载打开一个GitHub格式的shapefile，但在windows 10中没有成功。

library(rgdal)

# get AOI
download.file(
  "https://github.com/Leprechault/trash/blob/main/stands_example.zip",
  zip_path <- tempfile(fileext = ".zip")
)
unzip(zip_path, exdir = tempdir())

Warning message:
In unzip(zip_path, exdir = tempdir()) :
  error 1 extracting from zip file

setwd(tempdir())
stands_extent <- readOGR(file.path(tempdir(), "stands_target")) # Border
Error in ogrListLayers(dsn = dsn) : Cannot open data source

dir()
[1] "file9e88423c5c2b.zip"                             "rs-graphics-5776e6df-be67-40c4-a4f7-e311eb11d978"

拜托，这个问题有什么帮助吗？

Answer 1

library(rgdal)

# get AOI
download.file(
  "https://github.com/Leprechault/trash/raw/main/stands_example.zip",
  zip_path <- tempfile(fileext = ".zip")
)
unzip(zip_path, exdir = tempdir())
setwd(tempdir())
stands_extent <- readOGR(".", "stands_target") 
OGR data source with driver: ESRI Shapefile 
Source: "C:\Users\fores\AppData\Local\Temp\RtmpGSHaOM", layer: "stands_target"
with 7 features
It has 2 fields