使用现有函数编写函数[重复]

Question

可能重复：
How to pass a function and its arguments through a wrapper function in R? Similar to *args and *kwargs in python

我正在尝试使用现有函数编写函数，并且能够将参数传递给现有函数，而无需在新函数中定义每个参数。这很难用语言来表达。所以这里有一个例子： 我正在使用 read.table 编写一个函数，以便使用我正在编写的函数定义必须读取的文件名（基本上我不想更改工作目录）。以下是示例：

MyFilePath <- "/Users/John/Work/"

  read.table.path <- function(file, path){
   x <- paste(path, file, sep="/")
   return(read.table(x))
  }

因此要读取该文件夹中名为“table.txt”的文件：

table <- read.table.path(file="table.txt", path=MyFilePath)

但是，我如何使用此函数 (read.table.path) 以便将参数传递给 read.table，例如，如果我想说header=TRUE、fill=TRUE 等。

Answer 1

使用...

read.table.path <- function(file, path,...){
  read.table(file.path(path, file), ...)    
}

（file.path 函数比paste 更快，并且填充了适当的特定于平台的路径分隔符）。

您所描述的那种小函数通常称为“包装器”。