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