rm(list = ls())

library(tidyverse)
library(lubridate)

directory = "D:/Dropbox/Dropbox/Wits 2021/FINE4020/R Group Project/EPL/"

files = list.files(directory)

data_files = files[str_detect(files, ".csv")]

season_list = vector(mode = "list", length = 10)

column_types = "ccccnncnnccnnnnnnnnnnnn"

# First season dates are Year/Month/Day

season_list[[1]] = read_csv(paste0(directory, data_files[1]), col_types = column_types) %>% 
  mutate(Season = 1, .before = HomeTeam,
         Date = ymd(Date))

for(x in 2:9){
  season_list[[x]] <- read_csv(paste0(directory, data_files[x]), col_types = column_types) %>% 
    mutate(Season = x, .before = HomeTeam,
           Date = dmy(paste0(str_sub(Date, 3, 8), 20, str_sub(Date, 9, 10))))
}

season_list[[10]] = read_csv(paste0(directory, data_files[10]), col_types = column_types) %>% 
  mutate(Season = 10, .before = HomeTeam,
         Date = dmy(Date))

EPL_df = bind_rows(season_list)