# NOT RUN {
library(dplyr)
df_salaries <-
get_teams_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)
# }
Run the code above in your browser using DataLab