如何自动发现包安装失败？

Question

我想从 mran 快照安装旧包。我正在使用这个命令：

tryCatch({
  resp <- install.packages(pkgs = "https://cran.microsoft.com/snapshot/2016-12-05/bin/windows/contrib/3.4/car_2.1-4.zip", 
                           repos = NULL, 
                           dependencies = FALSE, 
                           type = "win.binary")
},
warning = function(e) {
  print("ITERATE - WARNING")
},
error = function(e) {
  print("ITERATE - ERROR")
})

我知道我可以使用版本或 devtools 等软件包。 tryCatch 在这里不是错误的。问题是我是否可以尝试/抓住它？

我知道我可以检查 url 之前是否存在，甚至可以下载这样的文件：

tryCatch({
  download.file("https://cran.microsoft.com/snapshot/2016-12-05/bin/windows/contrib/3.4/car_2.1-4.zip", destfile = "car_2.1-4.zip")
},
error = function(e) {
  print("ITERATE - ERROR")
})

但这不是我正在寻找的解决方案。我想确定这个函数失败了，然后以某种方式处理它。

install.packages()

谁能给我一些建议？

Answer 1

如果你无法捕捉到这一点，我只能假设你使用的是 Rstudio 而不仅仅是 R。

使用 utils::install.packages() 代替 Rstudio 版本。

我个人最喜欢的方法是。

##' Catch *and* save both errors and warnings, and in the case of
##' a warning, also keep the computed result.
##'
##' @title tryCatch both warnings (with value) and errors
##' @param expr an \R expression to evaluate
##' @return a list with 'value' and 'warning', where
##'   'value' may be an error caught.
##' @author Martin Maechler;
##' Copyright (C) 2010-2012  The R Core Team
tryCatch.W.E <- function(expr)
{
    W <- NULL
    w.handler <- function(w){ # warning handler
        W <<- w
        invokeRestart("muffleWarning")
    }
    list(value = withCallingHandlers(tryCatch(expr, error = function(e) e),
                                     warning = w.handler),
         warning = W)
}

 tryme <- tryCatch.W.E({utils::install.packages(pkgs = "https://cran.microsoft.com/snapshot/2016-12-05/bin/windows/contrib/3.4/car_2.1-4.zip", 
                          repos = NULL, 
                          dependencies = FALSE, 
                          type = "win.binary")})

然后 tryme 将在其中包含您的错误，这将允许您继续前进而不会遇到困难stop。