¿Hay un equivalente R de la pitonica "si __name__ ==" __main__ ": main()"?

Question

El objetivo es tener dos formas sencillas de obtener un código, por ejemplo func.R, que contenga una función. Llamar al R CMD BATCH func.R inicializa la función y evalúa is. Dentro de una sesión, al emitir simplemente se inicializa la función. ¿Alguna idea?

Answer 1

Creo que la función interactive() podría funcionar.

Esta función devuelve TRUE cuando R se usa interactivamente y FALSE de lo contrario. Así que sólo tiene que utilizar if (interactive())

es decir, el equivalente es

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

Answer 2

Puede pasar argumentos a R, y si hay un argumento presente, ejecute main(). Más sobre los argumentos aquí: http://yangfeng.wordpress.com/2009/09/03/including-arguments-in-r-cmd-batch-mode/

Answer 3

Es un montón de trabajo, pero finalmente lo consiguió (y publicada en Rosetta Code).

Este ejemplo exporta una función llamada meaningOfLife. Cuando el script se ejecuta solo, ejecuta main. Cuando se importa por otro archivo R, no se ejecuta main.

#!/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

me hizo una pregunta similar, usando in an answer, Matthew Plourde suggestedgetOption('run.main', default=TRUE) en el script principal, y luego poner options(run.main=FALSE) antes de llamar source(). Esto funcionó en mi caso.

De lo contrario, un patrón simple cuando tiene un script R creando un conjunto de funciones y desea escribir unas líneas al final del script para experimentar con el uso de una función: coloque estas líneas adicionales en un bloque if(FALSE){} .

Answer 5

Otra opción es:

#!/usr/bin/Rscript 

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