writintg wrappers around save()

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]]