user3969377
user3969377

Reputation:

R: Error in fBody[[i]] while running debugSource

I have an R script with about 1400 lines. I recently started to get the following error message. I am able to run the script by highlighting and using ctrl-R, but I can't run the script in debug mode. Any suggestions on how to locate the error?

> 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)

The error may be related to the following lines, since these lines are associated with option 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

Upvotes: 14

Views: 10518

Answers (5)

whdaffer
whdaffer

Reputation: 33

I was having this problem. The only message was:

'Error in fBody[[i]] : subscript out of bounds', no line number or any description of what the problem was.

I did have a breakpoint set and it seemed to be on a valid line, but when I cleared the breakpoint, the error went away.

Upvotes: 0

user4959635
user4959635

Reputation:

I've tested that one/some of the following might help (each bullet point is an individual fix):

  • Restart RStudio.
  • Check that a breakpoint has not become assigned to an empty line, where it seems that it's not possible to place a breakpoint. In this case, remove the offending breakpoints.

Upvotes: 2

James Hirschorn
James Hirschorn

Reputation: 8026

I also had this problem. It was caused by invalid breakpoints: This happens when you set a breakpoint, and then modify the code moving the breakpoint to a comment or a blank line for example.

Just clear all breakpoints and re-Source.

Upvotes: 48

Jonathan
Jonathan

Reputation: 449

It's an R studio glitch, not a bug in your code. I resolved it by closing my R Studio project (without saving the project workspace) and then reopening it.

Upvotes: 18

Disclaimer: I am a complete newbie to R.

I was debugging a code that I received, in Rstudio. I got the same error. I cleaned the environment. I commented all lines but the first, and gradually uncommented larger portions of the code, until I was left with the original code. The error never popped.

This happened to me with two different scripts.

So, I do not know the reason for the error, but you may have a workaround for it.

Upvotes: 0

Related Questions