如何在 R 函数中重用代码?

How to reuse code in an R function?

我有一段代码想在一个函数中多次使用(我们称之为 myFunction)。我自然想避免重复这段代码,但我找不到重用它的方法,除非每次都将它放入外部文件并获取它。

我尝试的第一件事是将重复的代码放在一个没有参数的内部迷你函数中(我们称之为 internalFunction。这意味着我可以根据需要调用 internalFunction;但是, 这屏蔽了 internalFunctionmyFunction 的主要环境中输出的对象。

然后我尝试使用 <<- 运算符在 internalFunction 中分配输出对象,以便它们可用于 myFunction 的主要环境。不幸的是,这也使得这些对象可用于 myFunction 之外的全局 R 环境,这是我想避免的。

有没有一种方法可以将 R 代码块写入对象然后调用它,或者从对象而不是文件中获取?我真的很想 a) 避免重复代码和 b) 将所有代码包含在一个文件中。

我想你想要的是一些简单的方法来 return 调用函数的多个值,这可以用列表来完成,如下所示:

maxmin <- function(i1,i2){

  if (i1>i2){
    mx <- i1
    mn <- i2
  }  else
  {
    mn <- i1
    mx <- i2
  }
  rv <- list(min=mn,max=mx)
  return(rv)
}

r1 <- maxmin(3,4)
r2 <- maxmin(6,5)

print(sprintf("minimums %d %d",r1$min,r2$min))
print(sprintf("maximums %d %d",r1$max,r2$max))

编辑:我去掉了列表元素名称的引号,它们不是必需的

这是另一种方法,但感觉很棘手,在大多数情况下可能不是一个好的软件工程解决方案。基本上你可以明确地访问父环境中的变量。

fun1 <- function(x)
{
    maxminenv <- function(i1,i2){
      if (i1>i2){
        mx <- i1
        mn <- i2
      }  else
      {
        mn <- i1
        mx <- i2
      }
      penv <- parent.frame()
      penv$min <- mn
      penv$max <- mx
    }
    maxminenv(3,4)
    print(sprintf("min:%d max:%d",min,max))
}
fun1()

有关环境的更多信息,请参阅 Hadley Wickam 新书中的这一优秀章节。 http://adv-r.had.co.nz/Environments.html