R正则表达式：如何在标题中提取一位或两位数的字符串？

I have a bunch of filenames that are numbered that I would like to be able to extract based on a regex statement.I have a bunch of filenames that are numbered t