2

我正在尝试创建一个封闭函数，它将：

  • 处理一些数据，
  • cat()该数据的结果，
  • 根据结果​​请求用户输入（即，通过readline()）cat()，
  • 然后返回一个函数，其中返回函数的参数默认值之一是输入的值readline()。

此外，我希望返回函数的参数的其余默认值是用户可解释的。也就是说，我不希望默认值是隐藏在父环境中的变量的变量名（这个规定排除了简单的参数传递）。具体来说，我想arg()返回实际评估的数字等。

我在下面编写了这个解决方案，但感觉很笨拙和尴尬。有没有更优雅的方法来解决这个问题？

top <- function(year=1990, n.times=NULL){

if(is.null(n.times)){
    ###in the real function, data would be processed here
    ###results would be returned via cat and
    ###the user is prompted return values that reflect a decision
    ###made from the processed data
    n.times <- as.numeric(readline("how many times?"))
}


out <- function(year, n.times){
    ###in the real function, this is where most of the work would happen
    rep(year, n.times)
}

###this entire section below is clunky.
if( !identical( names(formals()), names(formals(out)) ) ){
     stop("internal error: mismatching formals")

}

pass.formals <- setdiff( names(formals()), "n.times")

formals(out)[pass.formals] <- formals()[pass.formals]
formals(out)$n.times <- n.times
out

}

x <- top()
x
4

1 回答 1

2

对我来说，它看起来一般都可以；只有几件事我会做不同的事情。

是否有任何理由表明 和 的参数top()似乎out()以某种方式对应？即，你需要identical支票吗？不确定，所以我把它拿出来了。这似乎可以满足您的要求，并且稍微短一些：

top <- function(year=1990, n.times=NULL){
    if (is.null(n.times)) {
        n.times <- as.numeric(readline("how many times?"))
    }

    out <- function(year, n.times) {
        rep(year, n.times)
    }

    out.formals = formals(out)
    out.formals['n.times'] = n.times
    formals(out) = out.formals

    out
}

编辑：如果你想使用超级 R 魔法，你可以写

top <- function(year=1990, n.times=NULL){
    if (is.null(n.times)) {
        n.times <- as.numeric(readline("how many times?"))
    }

    `formals<-`(
        function() {
            rep(year, n.times)
        },
        value=list(year=alist(x=)$x, n.times=n.times)
    )
}

编辑：您也可以使用 DWin 建议的东西（尽管我无法使用它substitute）：

    out = function(year, n.times) {
        rep(year, n.times)
    }
    `formals<-`(out, v=`[[<-`(formals(out), 'n.times', n.times))

或使用bquote：

    eval(bquote(
        function(year, n.times=.(n.times)) {
            rep(year, n.times)
        }
    )[-4L])

你有很多选择。

于 2012-06-08T23:08:21.930 回答