R/get_game_statistic.R

In enongad/afltables: A Library of Webscraping Tools to Retrieve Statistics from afltables.com

get_game_statistics <- function(statistic, webpage){

  s = which(player_statistics == statistic)

  raw_stat_table =  webpage %>%
    rvest::html_nodes("table") %>%
    .[s] %>%
    rvest::html_table(fill = TRUE) %>% as.data.frame()

  n = nrow(raw_stat_table)

  stat_table = raw_stat_table[2:n,]
  names(stat_table) = raw_stat_table[1,]

  long_stats <- melt(stat_table,id="Player")
  long_stats$value = suppressWarnings(as.numeric(long_stats$value))
  long_stats <- long_stats[!is.na(long_stats$value),]

  colnames(long_stats)[2:3] <- c("round",statistic)

  return(long_stats)
}