nfl_stats <- dplyr::bind_rows(
lapply(httr::content(httr::GET("http://api.fantasy.nfl.com/v1/game/stats?format=json"))$stats,
dplyr::as_tibble)
)
nfl_cols <- as.character(nfl_stats$id)
names(nfl_cols) <- nfl_stats$shortName
devtools::use_data(nfl_cols, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.