R：有没有办法捕获所有的函数参数值

问题描述：

我写了一个函数来绘制图。我遇到的问题之一是需要生成可重现的图表。当然，一个解决方案是保存我生成的每个图的代码（即，保存我为函数参数设置的确切值）。不过，我想知道是否有一种方法可以捕获所有输入值，包括数据对象等，并将它们保存在列表中并将其作为输出返回。一个简单的方法来做到这一点，我想，如下：R：有没有办法捕获所有的函数参数值

plot.foo <- function(x, main=NULL){ 
    plot(x, main=main) 
    list(data=x, main=main) 
}

不过，我写的功能有一堆除了省略号参数参数（见下文），所以我不知道是否有更快速的方式来保存所有的输入参数值。谢谢！

plot.foo <- function(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10,...){ 
    ... 
}

答

有各种各样的功能，可能是有用的：match.call，match.arg然后有用于提取...参数的具体方法。

plot.foo <- 
    function(x, main=NULL){ 
    cl <- match.call() 
    print(cl) 
    plot(x, main=main) 
    list(data=x, main=main) 
    } 

plot.foo(1) 
## plot.foo(x = 1) 
## $data 
## [1] 1 
## 
## $main 
## NULL 

plot.foo <- 
    function(x, main=NULL, ...){ 
    extras=list(...) 
    print(extras) 

    cl <- match.call() 
    print(cl) 

    plot(x, main=main) # this would actually produce the grapjic 
    list(data=x, main=main, extras=extras) # this returns the arguments as a list 
    } 

plot.foo(1, sthg="z") 
## $sthg 
## [1] "z" 

# You could assign the returned list to a name or you could `save` to a file 
plot.foo(x = 1, sthg = "z") 
## $data 
## [1] 1 
## 
## $main 
## NULL

也有sys.call函数，其结果可能与deparse返回为文本。

答

从一开始，让你的所有情节参数

L <- list(x=data, main="string", ylim=c(0,10))

然后绘制使用对象作为参数集

do.call("plot", L)

确保保存l对于命名列表以后使用。

工作实施例：

L<-list(x=1:10, y=(1:10)^2, main="Y by X",type="l",xlab="X",ylab="Y") 
do.call("plot",L)

R：有没有办法捕获所有的函数参数值

相关推荐