Come verificare la normale terminazione degli script R eseguiti da Perl?

Question

Ho scritto uno script shebang e vorrei eseguirlo da uno script Perl. Attualmente utilizzo system ($my_r_script_path, $r_script_arg1, $r_script_arg2, ...) e la mia domanda è: come posso verificare che lo script R termini normalmente (senza errori o avvisi).

suppongo che dovrei fare in modo che il mio script R restituisca un valore vero alla fine, solo se tutto è OK, quindi prendere questo valore in Perl, ma non sono sicuro di come farlo.

Grazie!

Answer 1

È possibile impostare il valore di ritorno nel comando quit(), ad es. q(status=1). Il valore predefinito è 0, vedi anche? Uscire. Come catturarlo in Perl, è come prendere qualsiasi altro valore di ritorno in Perl. Viene salvato in una variabile speciale $? se ricordo bene. Vedi anche gli esempi nel perldoc per system, dovrebbe essere illustrato lì.

Su un sidenote, vorrei solo utilizzare l'interfaccia R-Perl. Si possono trovare informazioni ed esempi qui: http://www.omegahat.org/RSPerl/

Solo per completezza:

All'inizio dello script, si può mettere qualcosa di simile:

options(
    warn=2, # This will change all warnings into errors, 
      # so warnings will also be handled like errors 
    error= quote({ 
     sink(file="error.txt"); # save the error message in a file 
     dump.frames(); 
     print(attr(last.dump,"error.message")); 
     sink(); 
     q("no",status=1,FALSE) # standard way for R to end after errors 
    }) 
) 

questo salverà il messaggio di errore, e uscire dalla sessione R senza salvare, con il codice di uscita 1 e senza eseguire .Last.

Tuttavia, l'interfaccia R-Perl offre molte più possibilità che vale la pena di verificare se lo si farà più spesso.