tryCatch无法捕获RStudio中install.packages产生的错误 [英] tryCatch not catching error produced by install.packages within RStudio

问题描述

请考虑以下用法:

tryCatch(log("a"), error = function(e) NULL)
#NULL

现在，我正在尝试执行基本相同的操作，但是方式更加复杂.我有两个网络存储库，如果第一个由于某种原因不可用，我想从第二个安装软件包.这是我的方法:

Now I'm trying to do essentially the same, but in a more complicated fashion. I have two network repositories, and I'd like to install packages from the second if the first is not available for some reason. Here's how I do it:

pkg_location <- c("file://main_repo", "file://extra_repo")
lapply(pkg_location, function(repo)
{
  tryCatch(install.packages("my-cool-package", 
                            contriburl = repo, dependencies = TRUE),
           error = function(e) NULL)
})

我希望有一个NULL的列表.但是，该错误不会被抑制:

And I'm expecting a list of NULLs. However, the error is not suppressed:

Installing package into ‘...’
(as ‘lib’ is unspecified)
Warning in install.packages :
  cannot open compressed file '//extra_repo/PACKAGES', 
    probable reason 'No such file or directory'
Error in install.packages : cannot open the connection
[[1]]
NULL

[[2]]
NULL

似乎install.packages某种程度上忽略了该机制.那怎么可能，为什么会发生?我该如何解决这个问题?

It seems like install.packages somehow ignores the mechanism. How is that possible, why is that happening and how can I approach the problem?

这里是sessionInfo，可能值得注意的是我正在运行RStudio 0.98.977.

Here's sessionInfo, probably worth noting I'm running RStudio 0.98.977.

> sessionInfo()
R version 3.1.2 (2014-10-31)
Platform: x86_64-w64-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=English_United Kingdom.1252  LC_CTYPE=English_United Kingdom.1252   
[3] LC_MONETARY=English_United Kingdom.1252 LC_NUMERIC=C                           
[5] LC_TIME=English_United Kingdom.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

loaded via a namespace (and not attached):
[1] tools_3.1.2

推荐答案

RStudio不会执行正常的install.packages，而是执行其自身的操作:

RStudio does not exectute the normal install.packages but instead does its own thing:

查看RStudio中的代码:

look at the code in RStudio:

> install.packages
function (...) 
.rs.callAs(name, hook, original, ...)
<environment: 0x3e4b478>
> .rs.callAs
function (name, f, ...) 
{
    withCallingHandlers(tryCatch(f(...), error = function(e) {
        cat("Error in ", name, " : ", e$message, "\n", sep = "")
    }), warning = function(w) {
        cat("Warning in ", name, " :\n  ", w$message, "\n", sep = "")
        invokeRestart("muffleWarning")
    })
}
<environment: 0x3bafa38>

奇怪的代码，它使自己回想起... 我期待在某个地方找到.Primitive()

weird code, it recalls itself ... i was expecting a .Primitive() somewhere

> sum
function (..., na.rm = FALSE)  .Primitive("sum")

但这是一个丑陋的RStudio骇客.如果您以普通的R语言查看install.packages，则会得到:

but it is an ugly RStudio hack. if you look at install.packages in normal R you get:

head(install.packages)#真的很长:P
1个函数(pkgs，lib，repos = getOption("repos")，contriburl = contrib.url(repos， 2类型)，方法，可用= NULL，destdir = NULL，依赖关系= NA，
3 type = getOption("pkgType")，configure.args = getOption("configure.args")，
4 configure.vars = getOption("configure.vars")，clean = FALSE，
5 Ncpus = getOption("Ncpus"，1L)，详细= getOption("verbose")，
6 libs_only =否，INSTALL_opts，安静=否，keep_outputs =否，
....

head(install.packages) # it is really long :P
1 function (pkgs, lib, repos = getOption("repos"), contriburl = contrib.url(repos, 2 type), method, available = NULL, destdir = NULL, dependencies = NA,
3 type = getOption("pkgType"), configure.args = getOption("configure.args"),
4 configure.vars = getOption("configure.vars"), clean = FALSE,
5 Ncpus = getOption("Ncpus", 1L), verbose = getOption("verbose"),
6 libs_only = FALSE, INSTALL_opts, quiet = FALSE, keep_outputs = FALSE,
....

这篇关于tryCatch无法捕获RStudio中install.packages产生的错误的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！