Fehler beim Ausführen der Rmd-Datei, aber keine, wenn die Funktion direkt ausgeführt wird

Question

Ich habe eine R-Funktion erstellt, die ein tryCatch-Konstrukt verwendet, um Fehler zu überspringen. Die Funktion arbeitet, wenn sie als Standalone ausgeführt, sondern einen Fehler gibt, wenn innerhalb einer Rmarkdown Datei ausführt

Der Code ist wie unten

for(x in 1:length(aa)){ 
    bowlers <- unique(aa[[x]]$bowler) 
    for (y in 1:length(bowlers)){ 
     #cat("x=",x,"team",theTeams[x],"\n") 
     tryCatch(l <- getBowlerWicketDetails(team=theTeams[x],name=bowlers[y],dir="."), 
       error = function(e) { 
        print("Error!") 

       } 

     ) 
     l <- select(l,bowler,wickets,economyRate) 
     o <-rbind(o,l) 

    } 
} 

ich folgende Fehlermeldung erhalten, wenn innerhalb eines Rmd den Code ausführt. . Der Fehler wird

Fehler in select _ (Daten, .dots = lazyeval :: lazy_dots (...) ,: Objekt l keine Anrufe gefunden: Anonymos usw.

Ich denke, der Code ist sogar versucht, zu bewerten, wenn ein Fehler in der getBowlerWicketDetails() Funktion gibt es, wenn ‚l‘ nicht zur Verfügung. Wie kann dieses Problem gelöst werden?

Answer 1

schließlich das Problem durch das Hinzufügen einer zusätzliche Kontrolle vorhanden ist() gelöst. Wie bereits erwähnt, direkt die Ausführung der Funktion schien zu funktionieren, während die Ausführung innerhalb von Rmd gab die Variable nicht existiert

Der modifizierte Code wie folgt

for(x in 1:length(aa)){ 
    bowlers <- unique(aa[[x]]$bowler) 
    for (y in 1:length(bowlers)){ 
     #cat("x=",x,"team",theTeams[x],"\n") 
     tryCatch(l <- getBowlerWicketDetails(team=theTeams[x],name=bowlers[y],dir="."), 
       error = function(e) { 
        #print("Error!")       
       }      
     ) 
     if(exists("l")){    
      m <- select(l,bowler,wickets,economyRate) 
      o <-rbind(o,m) 
     } 

    } 
} 

Diese für beide endlich geklappt.

Vielen Dank!