R - 如何下载 ascii 光栅并解压缩？答案

【问题标题】：R - How to download ascii raster and unzip it?R - 如何下载 ascii 光栅并解压缩？
【发布时间】：2014-06-25 11:04:17
【问题描述】：

我正在尝试下载 ascii 栅格并使用 R 解压缩：

require(raster)
temp <- tempfile()
download.file("http://goo.gl/yGC4GU",temp)
myRaster <- raster( unz(temp, "koppen_ascii.txt") )

但我收到以下错误消息：

Error in (function (classes, fdef, mtable)  : 
  unable to find an inherited method for function ‘raster’ for signature ‘"unz"’

还有其他方法吗？

【问题讨论】：

【解决方案1】：

将文件解压缩到工作文件夹，然后阅读：

> unzip(temp)
> myRaster = raster("./koppen_ascii.txt")

使用tempdir() 创建一个临时目录并将其作为exdir 选项传递给unzip，如果您想将其保存在其他位置。

> zipd = tempdir()
> unzip(temp, exdir=zipd)
> myRaster = raster(file.path(zipd,"koppen_ascii.txt"))

【讨论】：