Question

我试图编写一个函数或多或少地自动化实验数据的文件导入。到目前为止，如果文件夹只包含一个文件，它可以正常工作，但我使用的程序在给定的文件路径中创建了两个文件例如Trial1： 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 )`

Answer 1

由于你没有giva是一个可重复的例子，我无法检查，但以下情况应该有效：files[grepl("midi", files)]。

自动化文件导入的功能

1 个答案: