我正在尝试编写一个函数，该函数遍历目录的直接子目录中的所有文件，然后运行自定义编写的函数以从文件的文本中提取特征：
load.samples <- function(path = ".", ...) {
dirs <- dir(path, full.names = TRUE)[file.info(dir(path, full.names = TRUE))$isdir]
lapply(dirs, function(p) {
lapply(dir(p, full.names = TRUE), function(f) {
text <- readChar(f, file.info(f)$size)
extractFeatures(text, ...) #I want this call to pass along the extra parameters to load.samples
})
})
}
我试图将传递给load.samples函数的任何其他参数传递给extractFeatures函数。但是，上面的代码显然不起作用，因为to的调用而不是直接调用，而是extractFeatures包装在通过两个to的嵌套调用调用的两个嵌套函数中lapply，并且每当我尝试传递任何额外的参数时，我都会得到未使用的参数错误的参数load.samples。
保存此类嵌套函数中使用的椭圆值的最简单方法是什么？
将第一行更改为此：
load.samples <- function(..., path = ".") {
诀窍是...应该在常规参数之后，但在命名参数之前。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句