Grep una variabile e memorizzare il risultato in un vettore in R

Question

Ho una lista di file txt memorizzati in A.path che vorrei usare grep per trovare l'anno associato a quel file e salvare quest'anno in un vettore. Tuttavia, poiché alcuni di questi file txt hanno più anni nel loro testo, mi piacerebbe solo memorizzare il primo anni. Come posso fare questo?

Ho fatto cose simili utilizzando lapply, e questo è il modo ho cominciato affrontare questo problema:

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 probabilmente non è la funzione diritto di utilizzare, in quanto questo restituisce la totalità di j per ogni i. Qual è la funzione giusta da usare qui?

Answer 1

Conversione commento di rispondere, è possibile utilizzare gsub con \\1 per estrarre il valore della prima partita (es. Il testo corrispondente tra () nel regex)

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