#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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.