#' Get nba players statistics per game from ballr
#'
#' @param season The year of the NBA season
#'
#' @return The data frame of the \code{season}
#' @export
#'
#' @examples
#' get_data_per_game(2018)
#' get_data_per_game(2017)
get_data_per_game <- function(season=2018) {
#
drop_col_pg <- c("link")
new_colnames <- c("rk", "player", "pos", "age", "tm", "g", "gs", "mppg", "fg",
"fga", "fgpercent", "x3p", "x3pa", "x3ppercent", "x2p", "x2pa", "x2ppercent",
"efgpercent", "ft", "fta", "ftpercent", "orb", "drb", "trb", "ast", "stl",
"blk", "tov", "pf", "pts", "link")
df_2 <- NBAPerGameStatistics(season)
colnames(df_2) <- new_colnames
df_2 <-
df_2 %>%
select(-one_of(drop_col_pg))
df_2
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.