Read multiple Excel sheets and append to one dataframe

[HABSaremyjam]

Hello,

I have an Excel document with multiple sheets that I want to read and append to a single data frame. I want to take the first row of each sheet and use it as the column names. I tried this code:

sheets <- data.frame()
sheetlist <- excel_sheets(path="myfile.xlsx")

for(i in 1:length(sheetlist)){
  d <- read.xlsx("myfile.xlsx", sheetName = sheetlist[i])
  colnames(d) <- d[1,]
  d <- d[-1,]
  sheets[i] <- rbind(d)
}

But not surprisingly, it didn't work. Gave me an empty dataframe with some numbers as my column names. Anyone know of a way to do this?

Thanks so much!

[scottyd22]

Does this give your intended result?

library(tidyverse)
library(readxl)

sheetlist = excel_sheets('myfile.xlsx')

myfun = function(i) {
  d = read_xlsx('myfile.xlsx', sheet = i)
  colnames(d) = d[1,]
  d = d[-1,]
  d
}

sheets = map(sheetlist, myfun) %>% bind_rows()