---------- Forwarded message ----------
From: Darren Weber <[EMAIL PROTECTED]>
Date: Apr 8, 2005 1:16 PM
Subject: Re: [R] Is a .R script file name available inside the script?
To: Gabor Grothendieck <[EMAIL PROTECTED]>
Right, I understand, it could be in.txt has:
scriptfile <- "Rscript.R"
source(scriptfile)
and then Rscript.R contains:
script.description <- function() eval.parent(quote(scriptfile), n = 3)
print(basename(script.description()))
Actually, I've found that just 'scriptfile <-
basename(eval.parent(quote(scriptfile))'
is sufficient. Unfortunately, this now requires two files, in.txt AND
Rscript.R!
I think this is a bit clumsy. You need a batch file to define a variable in
the 'parent' workspace that is then referred to in the source(script) file.
I really just want the argv like construct to work, but having read a few
other threads on that topic, it seems that the file name argument is
stripped from argv, so this raises a whole lot of trouble to get that
working (such as setting an environment variable and then using glob on
os.getenv). Anyhow, it's not the elegant, cross-platform solution I expect
and desire of R, but there are some solutions.
I would suggest that R implements a command line argument, maybe --infile
and then that filename is available as an internal variable in a standard
argv like fashion. The default sink output should be stdout, but a nice
alternative is to replace the .R extension with .Rout. Then it becomes
possible to call R on any platform with
R --vanilla --infile Rscript.R
instead of
R --vanilla < Rscript.R
or
cat Rscript.R | R --vanilla
On linux, the output would go to stdout/stderr and on windows it might go
into Rscript.Rout Have I missed a command line input argument like that?
Does --infile exist?
BTW, I think you meant linux above in reference to the command, echo
"source(Rscript.R)" | R --vanilla, as I'm not aware of pipes on windows.
Best, Darren
On Apr 6, 2005 6:56 PM, Gabor Grothendieck <[EMAIL PROTECTED]> wrote:
>
> It works for me. Suppose in.txt is a two line file with these two lines:
>
> file <- "Rscript.R"
> source(file)
>
> and Rscript.R is a two line file with these two lines:
>
> script.description <- function() eval.parent(quote(file), n = 3)
> print(basename(script.description()))
>
> Then here is the output on Windows:
>
> C:\Program Files\R\rw2001beta\bin>R --vanilla < in.txt
>
> R : Copyright 2004, The R Foundation for Statistical Computing
> [snip]
> > file <- "Rscript.R"
> > source(file)
> [1] "Rscript.R"
>
> Note that 'file' referred to in 'eval.parent' is not the variable that
> you called 'file' but is an internal variable within the 'source'
> program that is called 'file'. It has nothing to do with your 'file',
> which very well could have a different name. In fact you
> just do this on Windows:
>
> echo source("Rscript.R") | R --vanilla
>
> From: Darren Weber <[EMAIL PROTECTED]>
>
> That is useful, when calling the script like this:
>
> > file <- "Rscript.R"
> > source(file)
>
> However, it does not work if we do this from the shell prompt:
>
> $ R --vanilla < Rscript.R
>
> because the eval.parent statement attempts to access a "base
> workspace"that does not contain the "file" object/variable, as above.
> Isthere a solution for this situation? Is the input script file
> anargument to R and therefore available in something like argv?
>
> On Mar 18, 2005 8:00 PM, Gabor Grothendieck <[EMAIL PROTECTED]>
> wrote:
> Darren Weber <darrenleeweber <at> gmail.com <http://gmail.com>> writes:
>
> :
> : Hi,
> :
> : if we have a file called Rscript.R that contains the following, for
> example:
> :
> : x <- 1:100
> : outfile = "Rscript.Rout"
> : sink(outfile)
> : print(x)
> :
> : and then we run
> :
> : >> source("Rscript.R")
> :
> : we get an output file called Rscript.Rout - great!
> :
> : Is there an internal variable, something like .Platform, that holds
> : the script name when it is being executed? I would like to use that
> : variable to define the output file name.
> :
>
> In R 2.0.1 try putting this in a file and sourcing it.
>
> script.description <- function() eval.parent(quote(file), n = 3)
> print(basename(script.description()))
>
> If you are using R 2.1.0 (devel) then use this instead:
>
> script.description <- function()
> showConnections() [as.character(eval.parent(quote(file), n = 3)),
> "description"]
> print((basename(script.description())))
>
> ______________________________________________
> [email protected] mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide!
> http://www.R-project.org/posting-guide.html
>
[[alternative HTML version deleted]]
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
