Funktion zum automatischen Dateiimport

Question

Ich versuche eine Funktion zu schreiben mehr oder weniger Dateiimport für experimentelle Daten zu automatisieren. Bis jetzt funktioniert es gut, wenn der Ordner nur eine Datei enthält, aber das Programm, das ich verwendet, erstellt zwei Dateien in der gegebener Dateipfad für zB Versuch1: Trial1_001_match_20161115_121628.csv.aborted und Trial1_001_midi_20161115_121628.csv.aborted. Ich bin nur an der Midi-Datei interessiert. Gibt es eine einfache Möglichkeit zu implementieren, dass nur die Datei mit der Zeichenfolge midi importiert wird oder etwas ähnliches?

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

Wie Sie keine reproduzierbaren Beispiel Giva, kann ich nicht überprüfen, aber die folgenden funktionieren sollte: files[grepl("midi", files)].