R/player_salary.R

In emilykuehler/basketballstatsR: What the Package Does (One Line, Title Case)

#' @title Get Player Salary
#' @description gets salary data
#' @keywords NBA basketball reg
#' @importFrom magrittr %>%
#' @export
#' @examples
#' player_salary()
#'




player_salary <- function() {

  url <- 'https://www.basketball-reference.com/contracts/players.html'

  salary_df <- xml2::read_html(url) %>%
    rvest::html_nodes("table") %>%
    rvest::html_table(fill = T)

  salary_df <- salary_df[[1]]

  names(salary_df) <- tolower(salary_df[1,])
  salary_df <- salary_df[-1,]

  salary_df <- salary_df %>%
    dplyr::mutate(salary1819 = as.numeric(gsub("[\\$,]","", salary_df$`2018-19`)),
                  salary1920 = as.numeric(gsub("[\\$,]","", salary_df$`2019-20`)),
                  salary2021 = as.numeric(gsub("[\\$,]","", salary_df$`2020-21`)),
                  salary2122 = as.numeric(gsub("[\\$,]","", salary_df$`2021-22`)),
                  salary2223 = as.numeric(gsub("[\\$,]","", salary_df$`2022-23`)),
                  salary2324 = as.numeric(gsub("[\\$,]","", salary_df$`2023-24`)),
                  guaranteed_num = as.numeric(gsub("[\\$,]","", salary_df$guaranteed)),
                  `signed using` = ifelse(`signed using`== 'MInimum Salary', 'Minimum Salary', `signed using`)) %>%
    dplyr::select(-`2018-19`,-`2019-20`,-`2020-21`,-`2021-22`,-`2022-23`,-`2023-24`, -guaranteed)

  return (salary_df)

}