R：运行 debugSource 时 fBody[[i]] 出错

Question

我有一个大约 1400 行的 R 脚本。 我最近开始收到以下错误消息。 我可以通过突出显示并使用 ctrl-R 来运行脚本，但无法在调试模式下运行脚本。 关于如何定位错误有什么建议吗？

> debugSource('~/working/R/h60_maintenance/do_mega_analysis.R')
Error in fBody[[i]] : subscript out of bounds
> options(error=recover)
> debugSource('~/working/R/h60_maintenance/do_mega_analysis.R')
Error in fBody[[i]] : subscript out of bounds
Enter a frame number, or 0 to exit   
 1: debugSource("~/working/R/h60_maintenance/do_mega_analysis.R")
 2: (function (fileName, encoding, breaklines) 
{
    env <- new.env(parent = emptyenv())
    env$fun <- 
 3: suppressWarnings(.rs.setFunctionBreakpoints("fun", env, lapply(steps, function(step) {
    step$at
}
 4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
 5: .rs.setFunctionBreakpoints("fun", env, lapply(steps, function(step) {
    step$at
}))
 6: suppressMessages(trace(what = functionName, where = envir, at = lapply(strsplit(as.character(steps
 7: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
 8: trace(what = functionName, where = envir, at = lapply(strsplit(as.character(steps), ","), as.numer
 9: eval.parent(call)
10: eval(expr, p)
11: eval(expr, envir, enclos)
12: methods::.TraceWithMethods(what = functionName, where = <environment>, at = lapply(strsplit(as.cha
13: new(traceClass, def = if (doEdit) def else original, tracer = tracer, exit = exit, at = at, print 
14: initialize(value, ...)
15: initialize(value, ...)
16: .initTraceable(.Object, ...)
17: .makeTracedFunction(def, tracer, exit, at, print, doEdit)

该错误可能与以下几行有关，因为这些行与选项 10 相关：eval(expr,p)。

imds_rollup <- imds_detail_dt[,{
  ## if there's just one row in the group of ID's, return nothing
  list(
    count_every_fault = .N,
    max_ci_value = max(CI.Value),
    max_rotor_turn_time_air_sec = max(Rotor.Turn.Time...In.Air..s.),
    max_rotor_turn_time_ground_sec = max(Rotor.Turn.Time...On.Ground..s.)
  )}, by = c("BUNO","fileEventIndex")]
setkeyv(imds_rollup,c("BUNO","fileEventIndex"))
imds_rollup$max_ci_value <- NULL   # max_ci_value has all NA

Answer 1

我也遇到这个问题了。这是由无效断点引起的：当您设置断点，然后修改代码，例如将断点移动到注释或空行时，就会发生这种情况。

只需清除所有断点并重新源即可。

Answer 2

这是 R studio 的故障，而不是代码中的错误。我通过关闭 R Studio 项目（不保存项目工作区）然后重新打开它来解决它。

Answer 3

我已经测试过以下一个/一些可能会有所帮助（每个要点都是单独的修复）：

• 重新启动 RStudio。
• 检查断点是否已分配给空行，似乎无法放置断点。在这种情况下，请删除有问题的断点。

Answer 4

免责声明：我是 R 的新手。

我正在 Rstudio 中调试收到的代码。我遇到了同样的错误。 我把环境打扫干净了。我注释了除第一行之外的所有行，并逐渐取消注释大部分代码，直到只剩下原始代码。错误从未出现。

这发生在我身上，有两个不同的脚本。

所以，我不知道错误的原因，但您可能有解决方法。

Answer 5

我遇到了这个问题。唯一的消息是“fBody[[i]] 中的错误：下标超出范围”，没有行号或任何问题的描述。

我确实设置了断点，它似乎在有效的行上，但是当我清除断点时，错误就消失了。