如何在R中导入具有不同扩展名的多个Excel文件（工作簿）？

Question

我试图在RStudio中根据其标题导入多个Excel文件。但是，我必须为这些文件创建目录，并且这些文件具有两个不同的扩展名.xls和.xlsx。我对如何以最快的方式成功导入这些文件感到困惑。

我已经厌倦了创建一些“ for”和“ if”循环，但失败了。我在下面给出一个例子。我只是不知道该怎么办。即使提供某种错误消息，使用“ try / trycatch / stop”也会很有帮助。

a = paste0("subtitle1","subtitle2", ".xls")
for (i in 1:length(var)){
    b = try(read_excel(paste0(getwd(),"/",a[i])))
    stop('error message')
}

OR

if (i = 1:length(var)){
    a = paste0("subtitle1","subtitle2", ".xls")
    b[i] = read_excel(paste0(getwd(),"/",a[i]))
} else {
    c = paste0("subtitle1","subtitle2", ".xlsx")
    d[i] = read_excel(paste0(getwd(),"/",c[i]))
}