R:清理临时目录后无法运行某些函数

我得到一个错误：

Error in file(fn, "rb") : cannot open the connection
In addition: Warning message:
In file(fn, "rb") :
  cannot open file 'C:\Users\***\AppData\Local\Temp\Rtmpwh6Zih\raster\r_tmp_2020-05-
13_170601_12152_33882.gri': No such file or directory

在RStudio（1.2.5042）中运行以下代码时：

---

是指这个。我不知道我做错了什么。我可以取回这些文件或解决此错误吗

当R会话结束时，临时文件夹中的文件将被删除。所以你永远不要指望他们。您可以再次运行代码，但如果要永久保留结果，则需要将其写入其他地方。这里有两个选择

写很多文件

raster.binair <- vector(mode = "list", length = length(aggregated.rasters)) 
for (i in 1:NROW(aggregated.rasters)) { 
    f <- paste0("raster_", i)
    clamped <- clamp(aggregated.rasters[[i]], upper=12, useValues=FALSE, filename=f)
    raster.binair[[i]] <- clamped
} 

---

当R会话结束时，临时文件夹中的

raster.binair文件将被删除。所以你永远不要指望他们。您可以再次运行代码，但如果要永久保留结果，则需要将其写入其他地方。这里有两个选择

写很多文件

raster.binair <- vector(mode = "list", length = length(aggregated.rasters)) 
for (i in 1:NROW(aggregated.rasters)) { 
    f <- paste0("raster_", i)
    clamped <- clamp(aggregated.rasters[[i]], upper=12, useValues=FALSE, filename=f)
    raster.binair[[i]] <- clamped
} 

raster.binair亲爱的罗伯特，非常感谢你的帮助。我试过你的建议，但这不能解决我的错误。在目录中找不到的文件不是我想要作为输出的文件，也不是中间的“钳制”文件，因此我不知道为什么需要调用此文件。当我结束我的R会话并在一个新的会话中运行我的完整代码时，我仍然收到相同的错误。这很难帮助我，因为我无法重现这个错误。你能举一个小的可重复的例子吗？也许您可以显示错误发生的确切时间和地点（i=1？）；如何创建聚合光栅？你需要重新创建这些吗？亲爱的Robert，我的R版本出现了一些内部问题。因为我在R中运行的所有函数都出现了错误，所以我再次删除并升级了R，现在它似乎可以工作了。非常感谢你和我一起解决这个问题！亲爱的罗伯特，非常感谢你的帮助。我试过你的建议，但这不能解决我的错误。在目录中找不到的文件不是我想要作为输出的文件，也不是中间的“钳制”文件，因此我不知道为什么需要调用此文件。当我结束我的R会话并在一个新的会话中运行我的完整代码时，我仍然收到相同的错误。这很难帮助我，因为我无法重现这个错误。你能举一个小的可重复的例子吗？也许您可以显示错误发生的确切时间和地点（i=1？）；如何创建聚合光栅？你需要重新创建这些吗？亲爱的Robert，我的R版本出现了一些内部问题。因为我在R中运行的所有函数都出现了错误，所以我再次删除并升级了R，现在它似乎可以工作了。非常感谢你和我一起解决这个问题！
raster.binair <- vector(mode = "list", length = length(aggregated.rasters)) 
for (i in 1:NROW(aggregated.rasters)) { 
    f <- paste0("raster_", i)
    clamped <- clamp(aggregated.rasters[[i]], upper=12, useValues=FALSE, filename=f)
    raster.binair[[i]] <- clamped
} 

raster.binair <- vector(mode = "list", length = length(aggregated.rasters)) 
for (i in 1:NROW(aggregated.rasters)) { 
    raster.binair[[i]]  <- clamp(aggregated.rasters[[i]], upper=12, useValues=FALSE)
} 
s <- stack(raster.binair)
s <- writeRaster(s, filename="mydata.tif")