sufc1863:

#SUFC Reports
#Match Report Extract

match_report_extract <- function(match_report){

  # Load the required libraries
  library(xlsx)
  library(pdftools)

  # Read in the source files that extract certain parts of the pdf
  source("/Users/andrewferris/Documents/sufc1863/R/team_names.R")
  source("/Users/andrewferris/Documents/sufc1863/R/counter_attack.R")
  source("/Users/andrewferris/Documents/sufc1863/R/ball_runs.R")
  source("/Users/andrewferris/Documents/sufc1863/R/scrum.R")
  source("/Users/andrewferris/Documents/sufc1863/R/kicking.R")
  source("/Users/andrewferris/Documents/sufc1863/R/infringements.R")
  source("/Users/andrewferris/Documents/sufc1863/R/point_scoring.R")
  source("/Users/andrewferris/Documents/sufc1863/R/piece.R")
  source("/Users/andrewferris/Documents/sufc1863/R/breakdown.R")
  source("/Users/andrewferris/Documents/sufc1863/R/lineouts.R")
  source("/Users/andrewferris/Documents/sufc1863/R/player_table.R")
  source("/Users/andrewferris/Documents/sufc1863/R/game_date.R")

  # Run each of the functions and save output as an object
  data_team_names <- team_names(match_report)
  data_game_date <- game_date(match_report)
  data_point_scoring <- point_scoring(match_report)
  data_ball_runs <- ball_runs(match_report)
  data_breakdowns <- breakdowns(match_report)
  data_set_piece <- set_piece(match_report)
  data_scrum <- scrum(match_report)
  data_lineouts <- lineouts(match_report)
  data_infringements <- infringements(match_report)
  data_kicking <- kicking(match_report)
  data_counter_attack <- counter_attack(match_report)
  data_player_table <- player_table(match_report)

  # Write the files out to an xlsx file
  wb <- createWorkbook()
  saveWorkbook(wb, paste0(match_report, ".xlsx"))
  write.xlsx(data_team_names, file = paste0(match_report, ".xlsx"), sheetName = "team_names", append = TRUE, row.names = FALSE)
  write.xlsx(data_game_date, file = paste0(match_report, ".xlsx"), sheetName = "game_date", append = TRUE, row.names = FALSE)
  write.xlsx(data_point_scoring, file = paste0(match_report, ".xlsx"), sheetName = "point_scoring", append = TRUE, row.names = FALSE)
  write.xlsx(data_ball_runs, file = paste0(match_report, ".xlsx"), sheetName = "ball_runs", append = TRUE, row.names = FALSE)
  write.xlsx(data_breakdowns, file = paste0(match_report, ".xlsx"), sheetName = "breakdowns", append = TRUE, row.names = FALSE)
  write.xlsx(data_set_piece, file = paste0(match_report, ".xlsx"), sheetName = "set_piece", append = TRUE, row.names = FALSE)
  write.xlsx(data_scrum, file = paste0(match_report, ".xlsx"), sheetName = "scrum", append = TRUE, row.names = FALSE)
  write.xlsx(data_lineouts, file = paste0(match_report, ".xlsx"), sheetName = "lineouts", append = TRUE, row.names = FALSE)
  write.xlsx(data_infringements, file = paste0(match_report, ".xlsx"), sheetName = "infringements", append = TRUE, row.names = FALSE)
  write.xlsx(data_kicking, file = paste0(match_report, ".xlsx"), sheetName = "kicking", append = TRUE, row.names = FALSE)
  write.xlsx(data_counter_attack, file = paste0(match_report, ".xlsx"), sheetName = "counter_attack", append = TRUE, row.names = FALSE)
  write.xlsx(data_player_table, file = paste0(match_report, ".xlsx"), sheetName = "player_table", append = TRUE, row.names = FALSE, col.names = FALSE)

  data <- list(data_team_names = data_team_names,
               data_game_date = data_game_date,
               data_point_scoring = data_point_scoring,
               data_ball_runs = data_ball_runs,
               data_breakdowns = data_breakdowns,
               data_set_piece = data_set_piece,
               data_scrum = data_scrum,
               data_lineouts = data_lineouts,
               data_infringements = data_infringements,
               data_kicking = data_kicking,
               data_counter_attack = data_counter_attack,
               data_player_table = data_player_table)

  data

}