Разбиение строки с расширением файла в R

Question

Я пытаюсь получить последний номер из имени файла, для которого я использовал strsplit в R, но разделенное значение привязывается к расширению файла, от которого я хочу избавиться, вот что я попытался

fnames <- basename("D:/Processed files/ABC_4.csv") 
strsplit(fnames,"_") 

Выход

"ABC" "4.csv" 

в качестве альтернативы я пытался делать strsplit(fnames,"_ .") также

Любая помощь будет высоко ценится, спасибо

Answer 1

Мы можем попытаться с gsub

as.numeric(gsub("\\D+", "", fnames)) 
#[1] 4 

Или

as.numeric(gsub("^.*_|[^0-9]+$", "", fnames)) 

Или с stri_extract_last

library(stringi) 
as.numeric(stri_extract_last_regex(fnames, "\\d+")) 
#[1] 4