R: Error in fBody [[i]] when starting debugSource

Question

I have an R script with approximately 1400 lines. I recently started getting the following error message. I can run the script by highlighting and using ctrl-R, but I cannot run the script in debug mode. Any suggestions on how to find 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 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

This is an R studio, not an error in your code. I resolved it by closing the R Studio project (without saving the project workspace) and then opening it again.

Answer 2

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

Just clear all breakpoints and re-source.

Answer 3

Disclaimer: I'm a complete newbie to R.

I was debugging the code I received in Rstudio. I have the same error. I cleaned the environment. I commented out all the lines, but the first one and gradually uncommented large parts of the code until I was left with the source code. The error never appeared.

This happened to me with two different scenarios.

So, I do not know the cause of the error, but you may have a workaround.