Dear R-users,
I am trying to write a wrapper function around save() that will report the file
which is being saved to.
So I thought that the followintg would do the trick, but it doesn't. I
understand that 'y' is somehow not visible inside save.verbose, but
don't know how to fix this.
save.verbose <- function(..., file) {
cat("save.verbose:", file, "\n")
save(..., file=file)
}> foo <- function(x) { y <- x; save.verbose('y',
file='foo.rda') }; foo(1)
save.verbose: foo.rda
Error in save(..., file = file) : object 'y' not found
Any suggestion how to fix this?
Thank you for your time,
Vadim
P.S. I have a nagging feeling that I've already asked this question but I am
not able to find any trace of it in the archives. My apologiesif this is so.
[[alternative HTML version deleted]]
Try this:
save.verbose <- function(..., file) {
cat("save.verbose:", file, "\n")
eval.parent(substitute(save(..., file=file)))
}
On Fri, Mar 21, 2008 at 3:56 PM, Vadim Organovich
<vogranovich at jumptrading.com> wrote:> Dear R-users,
>
> I am trying to write a wrapper function around save() that will report the
file which is being saved to.
>
> So I thought that the followintg would do the trick, but it doesn't. I
understand that 'y' is somehow not visible inside save.verbose, but
don't know how to fix this.
>
> save.verbose <- function(..., file) {
> cat("save.verbose:", file, "\n")
> save(..., file=file)
> }
> > foo <- function(x) { y <- x; save.verbose('y',
file='foo.rda') }; foo(1)
> save.verbose: foo.rda
> Error in save(..., file = file) : object 'y' not found
> Any suggestion how to fix this?
>
> Thank you for your time,
> Vadim
>
> P.S. I have a nagging feeling that I've already asked this question but
I am not able to find any trace of it in the archives. My apologiesif this is
so.
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> 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.
>
>From the help pageThe names of the objects specified either as symbols (or character strings) in '...' or as a character vector in 'list' are used to look up the objects from environment 'envir'. The default for envir is parent.frame(). You want to change it (and watch out that default and explicit arguments are evaluated in different places). One approach is save.verbose <- function(..., file, envir = parent.frame()) { cat("save.verbose:", file, "\n") save(..., file=file, envir=envir) } On Fri, 21 Mar 2008, Vadim Organovich wrote:> Dear R-users, > > I am trying to write a wrapper function around save() that will report the file which is being saved to. > > So I thought that the followintg would do the trick, but it doesn't. I understand that 'y' is somehow not visible inside save.verbose, but don't know how to fix this. > > save.verbose <- function(..., file) { > cat("save.verbose:", file, "\n") > save(..., file=file) > } >> foo <- function(x) { y <- x; save.verbose('y', file='foo.rda') }; foo(1) > save.verbose: foo.rda > Error in save(..., file = file) : object 'y' not found > Any suggestion how to fix this? > > Thank you for your time, > Vadim > > P.S. I have a nagging feeling that I've already asked this question but I am not able to find any trace of it in the archives. My apologiesif this is so. > > [[alternative HTML version deleted]] > > ______________________________________________ > 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. >-- Brian D. Ripley, ripley at stats.ox.ac.uk Professor of Applied Statistics, http://www.stats.ox.ac.uk/~ripley/ University of Oxford, Tel: +44 1865 272861 (self) 1 South Parks Road, +44 1865 272866 (PA) Oxford OX1 3TG, UK Fax: +44 1865 272595