读取在临时文件中下载的压缩（csv）文件

Question

我正在尝试Dirk提供的代码，以从网站下载并读取压缩的csv文件。代码：

temp <- tempfile()
download.file("https://datacatalog.worldbank.org/dataset/Economic_Fitness_CSV.zip" ,temp)

我可以看到该文件正在被读取到临时文件中。

温度

C:\\Users\\DCC\\AppData\\Local\\Temp\\Rtmpu61Cca\\file27346fd263d0

但是，当我运行以下代码时出现错误

data <- read.csv(unz(temp, "Economic_Fitness_CSV.zip"))
unlink(temp)

  

解压警告消息（温度，“ C：/Users/DCC/AppData/Local/Temp/Rtmpu61Cca/Economic_Fitness_CSV.csv”）：   “从zip文件提取错误1”   错误：当前工作目录（“ D：/ MADS / 02 DATA422_Data Wrangling / LABs / Lab 1”）中不存在“ Economic_Fitness_CSV.csv”。   追溯：

我不理解此错误-从临时文件中提取/复制“ Economic_Fitness_CSV.csv”在我的工作目录中应该如何存在？

也许，我遗漏了一个简单的要点-但我无法自行解决。