diff --git a/vignettes/getting-started-hoopR.Rmd b/vignettes/getting-started-hoopR.Rmd index 713e641d..d6c995bc 100644 --- a/vignettes/getting-started-hoopR.Rmd +++ b/vignettes/getting-started-hoopR.Rmd @@ -54,7 +54,7 @@ pacman::p_load(dplyr, zoo, ggimage, gt) ### **The Data** -There are generally speaking **five** men's basketball data sources accessed from this package: +There are generally speaking **six** men's basketball data sources accessed from this package: - [`hoopR-data` repo](https://github.com/sportsdataverse/hoopR-data) [![Twitter Follow](https://img.shields.io/twitter/follow/sportsdataverse?color=blue&label=%40sportsdataverse&logo=twitter&style=for-the-badge)](https://twitter.com/sportsdataverse) - [NBA Stats and Data API](https://stats.nba.com) @@ -80,22 +80,23 @@ There are generally speaking **five** men's basketball data sources accessed fro ## **Quick Start** For the sake of your R session, we will only look at the previous 5 years of data, but I have indicated the years to which the data goes back to. -### **NBA play-by-plays (2002-2021) ~ 60-120 seconds** + +### **NBA play-by-plays (2002-`r hoopR::most_recent_nba_season()`) ~ 60-120 seconds** ```{r load_nba_pbp_gs, warning = FALSE} tictoc::tic() progressr::with_progress({ - nba_pbp <- hoopR::load_nba_pbp(2016:2021) + nba_pbp <- hoopR::load_nba_pbp(2018:hoopR::most_recent_nba_season()) }) tictoc::toc() glue::glue("{nrow(nba_pbp)} rows of nba play-by-play data from {length(unique(nba_pbp$game_id))} games.") dplyr::glimpse(nba_pbp) ``` -### **NBA team box scores (2002-2021) ~ 5-30 seconds** +### **NBA team box scores (2002-`r hoopR::most_recent_nba_season()`) ~ 5-30 seconds** ```{r load_nba_team_gs, warning = FALSE} tictoc::tic() progressr::with_progress({ - nba_team_box <- hoopR::load_nba_team_box(2016:2021) + nba_team_box <- hoopR::load_nba_team_box(2018:hoopR::most_recent_nba_season()) }) tictoc::toc() @@ -104,11 +105,11 @@ glue::glue("{nrow(nba_team_box)} rows of NBA team boxscore data from {length(uni dplyr::glimpse(nba_team_box) ``` -### **NBA player box scores (2002-2021) ~ 5-30 seconds** +### **NBA player box scores (2002-`r hoopR::most_recent_nba_season()`) ~ 5-30 seconds** ```{r load_nba_player_gs, warning = FALSE} tictoc::tic() progressr::with_progress({ - nba_player_box <- hoopR::load_nba_player_box(2016:2021) + nba_player_box <- hoopR::load_nba_player_box(2018:hoopR::most_recent_nba_season()) }) tictoc::toc() @@ -117,36 +118,36 @@ dplyr::glimpse(nba_player_box) ``` -### **Men's college basketball play-by-plays (2006-2021) ~ 120-180 seconds** +### **Men's college basketball play-by-plays (2006-`r hoopR::most_recent_mbb_season()`) ~ 120-180 seconds** ```{r load_mbb_pbp_gs, warning = FALSE} tictoc::tic() progressr::with_progress({ - mbb_pbp <- hoopR::load_mbb_pbp(2016:2021) + mbb_pbp <- hoopR::load_mbb_pbp(2018:hoopR::most_recent_mbb_season()) }) tictoc::toc() glue::glue("{nrow(mbb_pbp)} rows of men's college basketball play-by-play data from {length(unique(mbb_pbp$game_id))} games.") dplyr::glimpse(mbb_pbp) ``` -### **Men's college basketball team box scores (2003-2021) ~ 5-30 seconds** +### **Men's college basketball team box scores (2003-`r hoopR::most_recent_mbb_season()`) ~ 5-30 seconds** ```{r load_mbb_team_gs, warning = FALSE} tictoc::tic() progressr::with_progress({ - mbb_team_box <- hoopR::load_mbb_team_box(2016:2021) + mbb_team_box <- hoopR::load_mbb_team_box(2018:hoopR::most_recent_mbb_season()) }) tictoc::toc() glue::glue("{nrow(mbb_team_box)} rows of men's college basketball team boxscore data from {length(unique(mbb_team_box$game_id))} games.") dplyr::glimpse(mbb_team_box) ``` -### **Men's college basketball player box scores (2003-2021) ~ 5-30 seconds** +### **Men's college basketball player box scores (2003-`r hoopR::most_recent_mbb_season()`) ~ 5-30 seconds** ```{r load_mbb_player_gs, warning = FALSE} tictoc::tic() progressr::with_progress({ - mbb_player_box <- hoopR::load_mbb_player_box(2016:2021) + mbb_player_box <- hoopR::load_mbb_player_box(2018:hoopR::most_recent_mbb_season()) }) tictoc::toc() diff --git a/vignettes/kenpom-example-functions.Rmd b/vignettes/kenpom-example-functions.Rmd index 221f32ce..0c4bb8df 100644 --- a/vignettes/kenpom-example-functions.Rmd +++ b/vignettes/kenpom-example-functions.Rmd @@ -26,9 +26,9 @@ height <- kp_height(min_year = 2020, max_year = 2020) teamstats <- kp_teamstats(min_year = 2020, max_year = 2020) -playerstats <- kp_playerstats(metric = 'eFG', conf_only = FALSE, year=2020) +playerstats <- kp_playerstats(metric = 'eFG', conf_only = FALSE, year = 2020) -kpoy <- kp_kpoy(year=2020) +kpoy <- kp_kpoy(year = 2020) ``` @@ -38,13 +38,13 @@ kpoy <- kp_kpoy(year=2020) #---- kp_team_tables.R ------------------- -team_sched <- kp_team_schedule(team = 'Florida St.', year= 2020) +team_sched <- kp_team_schedule(team = 'Florida St.', year = 2020) -gameplan <- kp_gameplan(team='Florida St.', year=2020) +gameplan <- kp_gameplan(team = 'Florida St.', year = 2020) -opptracker <- kp_opptracker(team = 'Florida St.', year=2020) +opptracker <- kp_opptracker(team = 'Florida St.', year = 2020) -team_players <- kp_team_players(team = 'Florida St.', year= 2020) +team_players <- kp_team_players(team = 'Florida St.', year = 2020) minutes_matrix <- kp_minutes_matrix(team = 'Florida St.', year = 2020) @@ -54,9 +54,9 @@ team_player_stats1 <- team_player_stats[[1]] team_player_stats2 <- team_player_stats[[2]] -team_depth_chart <- kp_team_depth_chart(team = 'Florida St.', year= 2020) +team_depth_chart <- kp_team_depth_chart(team = 'Florida St.', year = 2020) -team_lineups <- kp_team_lineups(team = 'Florida St.', year= 2020) +team_lineups <- kp_team_lineups(team = 'Florida St.', year = 2020) ``` @@ -75,13 +75,13 @@ program_ratings <- kp_program_ratings() # there anymore at the moment for all years # records_team <- get_records_team(browser, team = 'Florida St.') -pomeroy_archive_ratings <- kp_pomeroy_archive_ratings( date='2018-11-22') +pomeroy_archive_ratings <- kp_pomeroy_archive_ratings(date = '2018-11-22') -conf <- kp_conf(year='2020',conf='ACC') +conf <- kp_conf(year = '2020',conf = 'ACC') -conf_stats <- kp_confstats(year='2020') +conf_stats <- kp_confstats(year = '2020') -conf_history <- kp_confhistory(conf='ACC') +conf_history <- kp_confhistory(conf = 'ACC') ``` @@ -92,18 +92,18 @@ conf_history <- kp_confhistory(conf='ACC') trends <- kp_trends() -officials <- kp_officials(year= 2020) +officials <- kp_officials(year = 2020) hca <- kp_hca() -arenas <- kp_arenas(year=2020) +arenas <- kp_arenas(year = 2020) -game_attrs <- kp_game_attrs(year=2020, attr = "Excitement") +game_attrs <- kp_game_attrs(year = 2020, attr = "Excitement") -fanmatch <- kp_fanmatch(date="2020-03-10") +fanmatch <- kp_fanmatch(date = "2020-03-10") ```