在父上下文中调用浏览器

Question

假设我有以下代码：

maybeBrowser <- function (msg) {
    if (interactive()) {
        cat(msg, "\n")
        ???
    } else {
        stop(msg)
    }
}

foo <- function (cond, ...) {
    if (cond) maybeBrowser("What a mess")
}

什么会？？？如果 cond 评估为 TRUE，则必须看起来像这样才能在 foo 的上下文中调用 browser()？

Answer 1

也许不是最优雅的，但这似乎可以满足我的要求。

首先，两个注意事项：

1. 我正在添加browser(); 1，我知道它不会立即起作用。 ;1 是因为browser() 后面没有代码时会立即退出。如果if/else 块之后有什么东西，那么你可能不需要它，但它就在那里。 （这仅对 emacs/ESS 是必需的：https://github.com/emacs-ess/ESS/issues/178）

2. 我在foo 环境中添加了一个变量，以证明我们没有（然后看到）它。

首先，失败的尝试：

maybeBrowser <- function (msg) {
    if (interactive()) {
        cat(msg, "\n")
        browser()
        q
    } else {
        stop(msg)
    }
}
foo <- function (cond, ...) {
    cat(capture.output(environment()), "\n")
    in_foo <- 1
    if (cond) maybeBrowser("What a mess")
}

foo(TRUE)
# <environment: 0x000000001b2beba0> 
# What a mess 
# Called from: maybeBrowser("What a mess")
# Browse[1]> 
debug at #5: q
# Browse[2]> 
environment()
# <environment: 0x000000001b280030>  <---- this is different
# Browse[2]> 
ls()
# [1] "msg"

现在对代码进行调整，由 https://stackoverflow.com/a/23891089/3358272 推动

maybeBrowser <- function (msg) {
    if (interactive()) {
        cat(msg, "\n")
        return(evalq(browser(skipCalls=1), envir=parent.frame()))
    } else {
        stop(msg)
    }
}
foo <- function (cond, ...) {
    cat(capture.output(environment()), "\n")
    in_foo <- 1
    if (cond) maybeBrowser("What a mess")
}

foo(TRUE)
# <environment: 0x000000001b0b9d40> 
# What a mess 
# Called from: eval(quote({
#     browser()
#     1
#   ...
# Browse[1]> 
debug at #4: [1] 1
# Browse[3]> 
environment()
# <environment: 0x000000001b0b9d40>  <---- this is now the same
# Browse[3]> 
ls()
# [1] "cond"   "in_foo"

但是，这不允许您继续，单步执行foo 中的任何以下代码，因此这是一个不完整的答案。不幸的是，我认为这可能不可行......但也许更了解内部情况的 R bubba 会对此有更清楚的了解。