Gibt es ein R-Äquivalent zum Python "if __name__ ==" __main__ ": main()"?

Question

Das Ziel ist es, zwei einfache Möglichkeiten zu haben, etwas Code zu erhalten, sagen wir func.R, der eine Funktion enthält. Der Aufruf R CMD BATCH func.R initialisiert die Funktion und wertet sie aus. Innerhalb einer Sitzung initialisiert die Ausgabe von einfach die Funktion. Irgendeine Idee?

Answer 1

Ich denke, dass die interactive() Funktion funktionieren könnte.

Diese Funktion gibt TRUE zurück, wenn R interaktiv verwendet wird, andernfalls FALSE. Also nur if (interactive())

verwenden das heißt das Äquivalent ist

if (!interactive()) { 
    main() 
} 

Answer 2

Sie könnten Argumente in R übergeben, und wenn ein Argument vorhanden ist, führen Sie main() aus. Mehr über Argumente hier: http://yangfeng.wordpress.com/2009/09/03/including-arguments-in-r-cmd-batch-mode/

Answer 3

Es ist eine Menge Arbeit, aber ich habe es endlich (und veröffentlicht bei Rosetta Code). In diesem Beispiel wird eine Funktion namens meaningOfLife exportiert. Wenn das Skript selbst ausgeführt wird, wird main ausgeführt. Wenn es von einer anderen R-Datei importiert wird, wird main nicht ausgeführt.

#!/usr/bin/Rscript 

meaningOfLife <- function() { 
    42 
} 

main <- function(program, args) { 
    cat("Main: The meaning of life is", meaningOfLife(), "\n") 
} 

getProgram <- function(args) { 
    sub("--file=", "", args[grep("--file=", args)]) 
} 

args <- commandArgs(trailingOnly = FALSE) 
program <- getProgram(args) 

if (length(program) > 0 && length(grep("scriptedmain", program)) > 0) { 
    main(program, args) 
    q("no") 
} 

Answer 4

fragte ich eine ähnliche Frage, in an answer, Matthew Plourde suggestedgetOption('run.main', default=TRUE) im Haupt Skript und dann options(run.main=FALSE) Einstellung vor source() aufrufen. Das hat in meinem Fall funktioniert.

Ansonsten ist ein einfacheres Muster, wenn Sie ein R-Skript erstellen eine Reihe von Funktionen und Sie möchten ein paar Zeilen am Ende des Skripts zu experimentieren mit der Verwendung einer Funktion zu schreiben: diese zusätzlichen Zeilen in einen if(FALSE){} Block .

Answer 5

Eine weitere Option ist:

#!/usr/bin/Rscript 

# runs only when script is run by itself 
if (sys.nframe() == 0){ 
# ... do main stuff 
}