[R] do.call and plotting functions ...

[Gabor Grothendieck]

Try this:

f <- function(cmd, ...) {
	cat("Hello\n")
	mc <- match.call()
	mc <- mc[-1]
	eval.parent(mc)
	cat("Goodbye\n")
}
f(plot, 1:10)


On Wed, Nov 19, 2008 at 8:57 AM, Roberto Brunelli
<roby.brunelli at gmail.com> wrote:
> I'm trying to write a simple wrapper for plotting functions to make
> them print to postscript, something like
>
> ploteps <- function(file, plotFunction, ...) {
>
>  args     <- list(bquote(...))
>
>  # prepare postscript device
>
>  do.call(plot, args)
>
>  # close postscript device
> }
>
> I have inserted the bquote otherwise I get a lot of numbers in the
> plot when I plot/hist something. But if I invoke the function as
>
> ploteps("foo.eps", hist, xlab = "X")
>
> I get
>
> Error in bquote(...) : unused argument(s) (xlab = "X")
>
> What am I messing up?
>
>
> Thanks a lot,
>
> ______________________________________________
> 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.
>