View source: R/hoops_hype_functions.R
| hoopshype_salaries | R Documentation | 
Detailed salaries for each player and team from hoopshype
hoopshype_salaries(
  teams = NULL,
  all_teams = TRUE,
  assume_player_opt_out = T,
  assume_team_doesnt_exercise = T,
  nest_data = F,
  return_message = TRUE
)
teams | 
 vector of team names  | 
all_teams | 
 if   | 
assume_player_opt_out | 
 if   | 
assume_team_doesnt_exercise | 
 if   | 
nest_data | 
 if   | 
return_message | 
 if   | 
a 'tibble'
Other hoopshype: 
hoops_hype_salary_summary()
Other salaries: 
bref_bios(),
hoops_hype_salary_summary(),
nba_insider_salaries()
library(dplyr)
df_salaries <-
hoopshype_salaries(all_teams = TRUE,
 nest_data = F, return_message = T)
 ## By Expiring Salary Type and Team
 df_salaries %>% group_by(slugSeason,  nameTeam, isFinalSeason) %>%
 summarise(expiringSalaries = sum(amountContractMil, na.rm = T) / 1000000) %>%
 arrange(nameTeam)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.