Grep eine Variable und speichern Sie das Ergebnis in einem Vektor in R

Question

Ich habe eine Liste der TXT-Dateien in A.path gespeichert, die ich verwenden möchte grep auf das Jahr mit dieser Datei verbunden zu finden, und speichern Sie dieses Jahr in einem Vektor. Da einige dieser txt-Dateien jedoch mehrere Jahre in ihrem Text haben, möchte ich nur das erste Jahr speichern. Wie kann ich das machen?

Ich habe ähnliche Dinge getan lapply verwendet wird, und das ist, wie ich dieses Problem begann nähern:

lapply(A.path, function(i){ 
j <- paste0(scan(i, what = character(), comment.char='', quote=NULL), collapse = " ") 
year <- vector() 
year[i] <- grep('[0-9][0-9][0-9][0-9]', j) 
}) 

grep wahrscheinlich nicht die richtige Funktion zu verwenden, da dies die Gesamtheit des j für jede zurück i. Was ist die richtige Funktion hier zu verwenden?

Answer 1

Kommentar Konvertieren zu beantworten, können Sie gsub mit \\1, um den Wert des ersten Spiels zu extrahieren (dh. Der Text zwischen () in der regex abgestimmt)

gsub(".*?([0-9]{4}).*", "\\1", j)