xlsxFile <- system.file("readTest.xlsx", package = "openxlsx")
system.time({df1 <- read.xlsx(xlsxFile = xlsxFile, sheet = 1)})
system.time({df2 <- read.xlsx(xlsxFile = xlsxFile, sheet = 2)})
system.time({df3 <- read.xlsx(xlsxFile = xlsxFile, sheet = 3)}) ## empty columns are skipped
system.time({df4 <- read.xlsx(xlsxFile = xlsxFile, sheet = 4)}) ## Numeric columns are padded with 0
system.time({df5 <- read.xlsx(xlsxFile = xlsxFile, sheet = 5, startRow = 2)})
system.time({df6 <- read.xlsx(xlsxFile = xlsxFile, sheet = 6)}) ## NULL
system.time({df7 <- read.xlsx(xlsxFile = xlsxFile, sheet = 7)})
system.time({df8 <- read.xlsx(xlsxFile = xlsxFile, sheet = 8)}) ##
Run the code above in your browser using DataLab