#clear the environment 
rm(list=ls()) 
## ------------------------------------------------------------------------
setwd(dirname(rstudioapi::getActiveDocumentContext()$path))
## -------
library("readxl")

types = c("team", "opp", "misc")
file1 = "data_"
file3 = "_"

for (j in 1:45) {
  for (i in 1:3) {
    file2 = types[i]
    file4 = toString(j)
    file5 = ".xlsx"
    file_name = paste(file1, file2, file3, file4, file5, sep = "")
    data01 = as.data.frame(read_excel(file_name))
    if (i == 1) {
      data02 = data01
    } else {
      data01 = data01[,-1]
      data02 = cbind(data02, data01)
    }
  }
  if (j == 1) {
    data = data02
  } else {
    data = rbind(data, data02)
  }
}

data = data[order(data$Team),]
write.csv(data, "Teams_overall20251.csv", row.names = F)