[R] possibility to determine whether a script is "sourced"?

[Charles C. Berry]

On Wed, 23 Jun 2010, Jannis wrote:

> Dear R community,
>
>
> I am running some rather large scripts either by executing single blocks of them separately or by executing them at once via
>
> source('script.R')
>
> Now there is a lot of code in those scripts that I only want to run when 
> I run them manually, so I wonder whether there is any way to 
> automatically find out whether the script is run manually stepwise or 
> whether it is run via source. Is there such a possibility?

Yes. You can set a flag at the start of your 'script.R'

Try this

> cat("sc <- sys.calls()",file="stest.R")
> source("stest.R")
> print( sc )
[[1]]
source("stest.R")

[[2]]
eval.with.vis(ei, envir)

[[3]]
eval.with.vis(expr, envir, enclos)

> sc <- sys.calls() # run the code interactively
> print( sc )
NULL
>

See

 	?sys.calls
 	?is.null

HTH,

Chuck

>
> Thanks a lot for your help!
> Jannis
>
>
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>

Charles C. Berry                            (858) 534-2098
                                             Dept of Family/Preventive Medicine
E mailto:cberry at tajo.ucsd.edu	            UC San Diego
http://famprevmed.ucsd.edu/faculty/cberry/  La Jolla, San Diego 92093-0901