将函数应用于多个目录

Question

我有一个目录（比如，/Users/clemk/），其中包含更多目录dir_1, dir_2, ..., dir_n。每个目录都有一个名为data.csv的csv文件。 我想将my_function()应用于每个data.csv，并使用每个data.csv所在目录的名称（即dir1，...，dir_n）来命名my_function内的内容。 谢谢！

Answer 1

你所要求的并不是很清楚。希望这有助于......

root <- "/Users/clemk/"
dirs <- c("dir_1", "dir_2", ..., "dir_n")
# or dirs <- paste0("dir_", 1:n)
lapply(dirs, function(x)my_function(paste0(root, x, "/data.csv")))