Question

编辑：对于记录，接受的答案有一个显着的下降，因为它重新执行函数中的第一个 n 行代码调试。这可能没问题，但是当这些代码行包括副作用（例如，数据库更新）和/或长时间计算时，会发生什么变得明显。我不相信R提供了做到这一点的能力＆＃34;正确＆＃34; （正如其他一些语言所做的那样）。长号。

某些调试器允许您在调试器中动态添加断点。 R中的功能是否可行？一个例子：

quux <- function(..)
{ # line 1
  "line 2"
  "line 3"
  "line 4"
  "line 5"
  "line 6"
}

trace("quux", tracer = browser, at = 3)
# [1] "quux"
quux()
# Tracing quux() step 3 
# Called from: eval(expr, envir, enclos)
# Browse[1]> 
# debug: [1] "line 3"

在调试时，我相信我想在代码中超前。想象一下，这个函数有几百行代码，我宁愿不介入它们。

我希望能够做到这一点，并从当前行跳到下一个有趣的行，但不幸的是它只是继续执行该功能。

# Browse[2]>
trace("quux", tracer = browser, at = 5)
# [1] "quux"
# Browse[2]>
c    
# [1] "line 6"
# # (out of the debugger)

调试器中的trace调用只是将断点添加到原始（全局）函数中，如图所示，如果我立即再次调用该函数：

quux()
# Tracing quux() step 5 
# Called from: eval(expr, envir, enclos)
# Browse[1]> 
# debug: [1] "line 5"

我尝试在浏览器内部同时设置两个（at=c(3,5)），但这只是在我退出调试器并再次调用该函数时设置这些行。

我猜这与trace附加断点的函数有关。查看trace（和.TraceWithMethods），我想我需要设置where，但我无法弄清楚如何让它在调试中设置新的断点/跟踪功能

（更大的图片是我正在对正在处理kafka引导的数据流的函数进行故障排除。我的两个选项目前是（a）用更合适的跟踪重启函数，但这需要我同样清除和重启数据流;或者（b）在调试器中逐行进行，当有数百行代码时很乏味。）

Answer 1

这可能是一种解决方案。首先在你的帖子中做：

> quux <- function(..)
+ { # line 1
+   x <- 1   # added for illustration
+   "line 3"
+   "line 4"
+   "line 5"
+   print(x) # added for illustration
+   "line 7"
+   "line 8"
+ }
> 
> trace("quux", tracer = browser, at = 4)
[1] "quux"
> quux()
Tracing quux() step 4 
Called from: eval(expr, p)
Browse[1]> n
debug: [1] "line 4"

接下来，我们在调试器中执行以下操作：

Browse[2]> this_func <- eval(match.call()[[1]])       # find out which funcion is called
Browse[2]> formals(this_func) <- list()               # remove arguments
Browse[2]> body(this_func) <- body(this_func)[-(2:4)] # remove lines we have evalutaed   
Browse[2]> trace("this_func", tracer = browser, 
+                at = 8 - 4 + 1)                      # at new line - old trace point
Tracing function "this_func" in package "base"
[1] "this_func"
Browse[2]> this_func                                  # print for illustration
function () 
{
    "line 5"
    print(x)
    "line 7"
    "line 8"
}
Browse[2]> environment(this_func) <- environment()    # change enviroment so x is present
Browse[2]> this_func()                                # call this_func
[1] 1
[1] "line 8"

缺点是，在我们退出"line 5"的电话后，我们会在quux的原始电话中以this_func结束。此外，我们必须跟踪最后at值。我们可以从另一个函数中得到这个吗？

已经在R浏览器中添加跟踪/断点

1 个答案: