Grep переменная и сохранить результат в векторе в R

Question

У меня есть список файлов txt, хранящихся в A.path, что я хотел бы использовать grep, чтобы найти год, связанный с этим файлом, и сохранить этот год в векторе. Однако, поскольку некоторые из этих файлов txt имеют несколько лет в тексте, я хотел бы только сохранить первый год. Как я могу это сделать?

Я делал подобные вещи, используя lapply, и это, как я начал подхода к этой проблеме:

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 вероятно не является правильной функции использовать, так как это возвращает полноту j для каждого i. Какую функцию можно использовать здесь?

Answer 1

Преобразование комментарий ответить, вы можете использовать gsub с \\1 извлечь значение первого матча (то есть. Текст соответствует между () в регулярном выражении)

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