R - 如何下载ascii raster并解压缩？

Question

我试图下载ascii raster并使用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"’

有没有替代方法？

Answer 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"))