R/get_data_adv_stats.R

In thierrycnam/nbafuns: Functions for nba PCA analysis

#' Get nba players advanced statistics
#'
#' @param season The year of the NBA season
#'
#' @return The data frame of the \code{season}
#' @export
#'
#' @examples
#' get_data_adv_stats(2018)
get_data_adv_stats <- function(season=2018) {
  #
  drop_col_adv <- c("x", "x_2", "link")
  df_1 <- NBAPerGameAdvStatistics(season)
  df_1 <-
    df_1 %>%
    select(-one_of(drop_col_adv))
  df_1
}