以R表格方式读取xlsb文件，并根据条件进行合并

Question

我有很多xlsb文件看起来像多张

文件1表1

NA NA NA NA
NA 3  NA NA
A  B  C  D
23 12 24 23
.......

档案1表2

NA NA NA 
NA 3  1  
NA 1  NA 
B  C  A   
23 12 21 
.....

每个文件有2张，有些前2-3行有垃圾，后面是列名A B C D，可以是任何顺序，或者某些列可以丢失，后跟数字数据

我想读取R中的所有xlsb，并希望得到像

这样的最终输出

file1.A file1.B file1.C file1.D file2.A
43      42       23         42    43
.................................

尝试过的代码，1个文件需要1个小时，只读1个，但是我必须从非NA行开始读取，否则会抛出错误

 rm(list=ls())
start.time = Sys.time()
library(excel.link)
setwd("C://Users//LAB//Desktop//data//")
a = dir()
df<-xl.read.file(a[1],header=TRUE, top.left.cell="A4")
end.time <- Sys.time()
time.taken <- end.time - start.time
time.taken