使用'readxl'，我创建了在多个xlsx文件中找到的所有图纸的列表。如何获得每本作品中列出的图纸索引？即c（1：330，1：350，1：243 ...）
numbs <- lapply(files, excel_sheets)
输出示例：
List of 12
$ : chr [1:330] "Sheet1" "Sheet2" "Sheet3" "Sheet4" ...
$ : chr [1:350] "Sheet1" "Sheet2" "Sheet3" "Sheet4" ...
$ : chr [1:243] "Sheet1" "Sheet2" "Sheet3" "Sheet4" ...