R for() 循环：将“ls”标准输出通过管道传输到 read.csv() 并创建多个对象

Question

我想实现一个优雅的解决方案：通过将system("ls") 标准输出代理到read.csv() 来创建对象，使用for()。

工作目录：

[Data]    #contain 10 .csv files e.g: './Data/dataset01.csv'
                                              ^-------^(8~16th characters)
my_Script.Rmd   #RMarkdown script used in the example

R 代码：

for (i in system("ls ./Data/*.csv"))
     
     { read.csv(file=i) -> strsplit(i, 8, 16) }

我打算在这里实现的目标：

1. 对于来自ls 的每个文件路径标准输出。
2. 读取 .csv 文件并
3. 为每个读取的数据集创建一个数据框。

谢谢！

Answer 1

首先获取文件名。 您可以按照system 的建议执行此操作，但请确保包含intern=T 以将命令的输出捕获为字符串。

fl <-system("ls ./MATLAB/*.m", intern = T)

另一种选择是使用函数list.files。

fl <- list.files(path = "Data", pattern = "\\.csv$", full.names = T)

然后使用assign 为名称赋值。使用basename（删除路径）和tools::file_path_sans_ext（删除文件扩展名）的组合。

for (i in fl){
  assign(tools::file_path_sans_ext(basename(i)), read.csv(i))
}