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

2019年8月6日 227次阅读

我有一个代码块,我想在函数内多次使用(让我们称之为myFunction).我自然希望避免重复这个代码块,但是我找不到重用它的方法,只需将它放在外部文件中并每次都获取它.

我尝试的第一件事就是将重复的代码放在没有参数的内部迷你函数中(让我们称之为internalFunction.这意味着我可以根据需要调用internalFunction;但是,这会掩盖来自主要环境的internalFunction输出的对象) myFunction的.

然后我尝试使用<< – 运算符在internalFunction中分配输出对象,以便它们可用于myFunction的主环境.不幸的是,这也使得这些对象可用于myFunction之外的全局R环境,我想避免使用它. 有没有办法将R代码块写入对象然后调用它,或从对象而不是文件中获取？我真的想a)避免重复代码和b)在单个文件中包含所有代码.

最佳答案 我认为你想要的是一些简单的方法来将多个值返回给调用函数,这可以通过列表来完成,如下所示：

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

编辑：我删除了列表元素名称的引号,它们是没有必要的

点赞