功能以使自动化文件导入

问题描述：

我试图写一个函数来更多或实验data.So少使自动化文件导入到目前为止，它工作正常，如果该文件夹只包含一个文件，但我用的程序创建的两个文件给定文件路径例如试验1： Trial1_001_match_20161115_121628.csv.aborted和Trial1_001_midi_20161115_121628.csv.aborted。我只对MIDI文件感兴趣。是否有一种简单的方法来实现，只有包含字符串midi的文件被导入或类似的东西？功能以使自动化文件导入

path <- "C:/Users/Thomas/Desktop/tapping backup/Pilot141116/pilot_151116_pat1_250/realisations/participant_8/Trial1" 

setwd(path) 
files <- list.files(path = path, pattern = ".csv", full.names = T) 

# set up a function to read a file and add a column for filename 
import <- function(file) { 
    df <- read_csv(file, col_names = T) 
    df$file <- file 
    return(df) 
} 

# run that function across all files. 
data1 <- ldply(.data = files, .fun = import)`

在你的'list.files'调用中使用''midi。* \\。csv“'作为模式。除正则表达式之外的模式，因此您可以调整您想要列出的文件 – Rentrop

答

只要你不GIVA重复的例子，我无法检查，但下面应该工作：files[grepl("midi", files)]。

功能以使自动化文件导入

相关推荐