R: Hata ayıklama çalıştırılırken fBody [[i]] hatası

Question

Yaklaşık 1400 satıra sahip bir R komut dosyası var. Son zamanlarda aşağıdaki hata iletisini almaya başladım. Komut dosyasını ctrl-R'yi vurgulayarak ve kullanarak çalıştırabiliyorum, ancak komut dosyasını hata ayıklama modunda çalıştıramıyorum. Hatayı nasıl bulacağınıza dair herhangi bir öneriniz var mı? Eval (ifade, s): bu çizgiler seçenek 10 ile ilişkili olduğundan

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

hata

aşağıdaki hatları ile ilişkili olabilir.

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

Kodunuzda bir hata değil, R stüdyo hatası var. R Studio projemi (proje çalışma alanını kaydetmeden) kapatarak ve sonra yeniden açarak çözdüm.

Answer 2

Yasal Uyarı: Ben Rstudio içinde alınan bir kod hata ayıklama edildi R.

için tam bir acemi değilim. Aynı hatayı aldım. Çevreyi temizledim. Orijinal kodla ayrılıncaya kadar tüm satırları yorumladım, ancak ilk ve aşamalı olarak kodun daha büyük bölümlerini inceledim. Hata asla atmadı.

Bu, iki farklı komut dosyası ile bana oldu.

Bu nedenle, hatanın nedenini bilmiyorum, ancak bunun için bir çözümünüz olabilir.

Answer 3

Bu problemi de yaşadım. Geçersiz kesme noktalarından kaynaklandı: Bu, bir kesme noktası belirlediğinizde ve ardından kesme noktasını hareket ettiren kodu örneğin bir yoruma veya boş bir satıra değiştirdiğinizde olur.

Sadece tüm kesme noktalarını temizleyin ve yeniden Kaynaklayın.