R/game_date.R

In AndrewFerris/sufc1863:

#SUFC Reports
#Game Date Statistics

game_date <- function(match_report){
  library(pdftools, quietly = TRUE)
  library(stringr, quietly = TRUE)

  file <- pdf_text(match_report)
  file_page_1 <- file[1]
  file_page_1 <- strsplit(file_page_1, "\n")
  date <- as.character(file_page_1[[1]][4])
  date <- trimws(date, "both")
  date
}