功能以使自动化文件导入

  • Z时代
  • 2024-01-10
  • 分类：问答

我试图写一个函数来更多或实验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)`

回答：

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

以上是 功能以使自动化文件导入 的全部内容， 来源链接： utcz.com/qa/265824.html

回到顶部