使用R中的文件扩展名拆分字符串

Question

我正在尝试从R中使用strsplit的文件名中获取最后一个数字但是分割后的值附加了我想要删除的文件扩展名，这就是我所拥有的试图

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