如何將函數參數傳遞給map_df（）？

Question

我正在嘗試創建一個函數來清除數據並在R中作為data.frame返回。

我正在使用map_df（）函數將已清理的數據作為data.frame返回，並編寫了一個函數來清理數據。

我要做的第一件事是從文件夾中提取文件列表，然后遍歷它們並清理每個文件。 我有一個預定義的集合，用於指定在文件之間存在差異時要提取（存儲在selectCols中）的列名稱：

files <- list.files(filepath,full.names=F)
colInd <- which(names(fread(files[i],nrows=0)) %in% gsub("_","",selectCols))

我還有一個清理數據的函數，該函數使用fread（）讀取.csv文件。 它以colInd和i作為參數來迭代地清理文件。

cleanData <- function(files,i,colInd) {
    addData <- fread(files[i],select=c(colInd))
    [...]
}

總的來說，它看起來像這樣（作為遞歸函數）：

i <- 1
files <- list.files(filepath,full.names=F)

iterateCleaning <- function(files,i) {
    colInd <- (which(names(fread(files[i],nrows=0)) %in% gsubs("_","",selectCols))

    if (length(colInd)==length(selectCols)) {
        newData <- map_df(files,cleanData)
        saveToFolder(newData,i,files)
    }
    else {}

    i=i+1

    if (i<-length(files)){
        iterateCleaning(files,i)
    }
    else {}
}

當我嘗試運行時未為函數指定參數時，出現以下錯誤：

Error in fread(files,select=c(colInd)): 
    argument "colInd" is missing, with no default.

當我將其插入map_df（）時，我會這樣做：

newData <- map_df(files,i,colInd,cleanData)

然后我得到這個錯誤：

Error in as_mapper(.f,...): object 'colInd' not found.

有解決此錯誤的建議嗎？ 據我了解，map_df（）適用於函數中的每個元素，但我不需要將其應用於i和colInd輸入，我只需要它們用於在map_df（）中調用的函數。 如何在需要附加參數的函數上調用map_df（）？

我閱讀了文檔，但似乎有些混亂。 它表示要為單參數函數使用“。” 以及使用.x和.y的兩個參數的函數，但是我不確定這是什么意思。 我最初的猜測是這樣的，但是這兩行都不行）：

newData <- map_df(files,cleanData,.i,.colInd)

newData <- map_df(files,cleanData,.x=i,.y=colInd)

有什么建議嗎？ 如果之后僅在函數的輸出上調用map_df（），我是否會有相同的輸出？