# NOT RUN {
path1 <- system.file("extdata",package="wrMisc")
fiNa <- c("pl01_1.xlsx","pl01_2.xlsx","pl02_1.xlsx","pl02_2.xlsx")
datAll <- readXlsxBatch(fiNa,path1)
str(datAll)
datAll2 <- readXlsxBatch(path=path1,silent=TRUE)
identical(datAll,datAll2)
# }
Run the code above in your browser using DataLab