Package: wehoop

Title: Functions to Access Women's Basketball Play by Play Data

Version: 0.9.0

Version: 0.9.1

Authors@R: c(person('Saiem', 'Gilani', email = 'saiem.gilani@gmail.com',role = c('aut','cre')),

person('Geoff','Hutchinson', email = 'geoffery.hutchinson@gmail.com', role = c('aut')))

Description: The R package wehoop is for working with women's college and professional basketball data. A scraping and aggregating interface for ESPN's women's college basketball and WNBA statistics, [espn.com](https://espn.com). It provides users with the capability to access the API's game play-by-plays, box scores, standings and results to analyze the data for themselves.

furrr,

future,

glue,

janitor,

jsonlite,

httr,

magrittr,

importFrom(dplyr,ungroup)

importFrom(glue,glue)

importFrom(httr,status_code)

importFrom(janitor,clean_names)

importFrom(jsonlite,fromJSON)

importFrom(jsonlite,toJSON)

importFrom(magrittr,"%>%")

- All functions have now been given the[```janitor::clean_names()```](https://rdrr.io/cran/janitor/man/clean_names.html) treatment

-[```wehoop::espn_wbb_teams()](https://saiemgilani.github.io/wehoop/reference/espn_wbb_teams.html) has updated the returns to be more identity information related only

-[```wehoop::espn_wnba_teams()](https://saiemgilani.github.io/wehoop/reference/espn_wnba_teams.html) to be more identity information related only

- All tests were updated

espn_wbb_game_all<-function(game_id,verbose=FALSE){

options(stringsAsFactors=FALSE)

player_box<-dplyr::bind_cols(stats_df,players_df) %>%

dplyr::select(.data$athlete.displayName,.data$team.shortDisplayName,tidyr::everything())

plays_df<-plays_df %>%

janitor::clean_names()

team_box_score<-team_box_score %>%

janitor::clean_names()

player_box<-player_box %>%

janitor::clean_names() %>%

dplyr::rename(

)

},

error=function(e) {

if(verbose){

espn_wbb_pbp<-function(game_id,verbose=FALSE){

options(stringsAsFactors=FALSE)

options(scipen=999)

names(aths)[1]<-c("play.id")

plays_df<-dplyr::bind_cols(plays,aths) %>%

select(-.data$athlete.id)

plays_df<-plays_df %>%

janitor::clean_names()

},

error=function(e) {

if(verbose){

espn_wbb_team_box<-function(game_id,verbose=FALSE){

options(stringsAsFactors=FALSE)

options(scipen=999)

tm<- c(teams_box_score_df[2,"team.shortDisplayName"],"Team",teams_box_score_df[1,"team.shortDisplayName"])

names(tm)<- c("Home","label","Away")

team_box_score=dplyr::bind_rows(tm,team_box_score)

team_box_score<-team_box_score %>%

janitor::clean_names()

},

error=function(e) {

if(verbose) message(glue::glue("{Sys.time()}: Invalid arguments or no team box score data for {game_id} available!"))

espn_wbb_player_box<-function(game_id,verbose=FALSE){

options(stringsAsFactors=FALSE)

options(scipen=999)

player_box<-dplyr::bind_cols(stats_df,players_df) %>%

dplyr::select(.data$athlete.displayName,.data$team.shortDisplayName,tidyr::everything())

player_box<-player_box %>%

janitor::clean_names() %>%

dplyr::rename(

)

},

error=function(e) {

if(verbose) message(glue::glue("{Sys.time()}: Invalid arguments or no player box score data for {game_id} available!"))

espn_wbb_teams<-function(){

options(stringsAsFactors=FALSE)

stats<-s %>% unnest_wider(.data$g)

records<-dplyr::bind_cols(records %>%dplyr::select(.data$summary),stats)

leagues<-leagues %>%dplyr::select(-.data$record,-.data$links)

teams<-dplyr::bind_cols(leagues,records)

leagues<-leagues %>%dplyr::select(

-.data$record,

-.data$links,

-.data$isActive,

-.data$isAllStar,

-.data$uid,

-.data$slug)

teams<-leagues %>%

dplyr::rename(

logo=.data$logos_href_1,

logo_dark=.data$logos_href_2,

mascot=.data$name,

team=.data$location,

team_id=.data$id,

short_name=.data$shortDisplayName,

alternate_color=.data$alternateColor,

)

},

error=function(e) {

message(glue::glue("{Sys.time()}: Invalid arguments or no teams data available!"))

broadcast_market=list(1,"market"),

broadcast_name=list(1,"names",1)

) %>%

dplyr::select(!where(is.list))

dplyr::select(!where(is.list)) %>%

janitor::clean_names()

}else {

schedule_out %>%

janitor::clean_names()

}

}else {

wbb_data %>%dplyr::select(!where(is.list))

wbb_data %>%dplyr::select(!where(is.list)) %>%

janitor::clean_names()

}

},

error=function(e) {

xml2::read_html() %>%

rvest::html_nodes("table"))[[1]] %>%

rvest::html_table(fill=TRUE) %>%

dplyr::as_tibble()

dplyr::as_tibble() %>%

janitor::clean_names()

},

error=function(e) {

message(glue::glue("{Sys.time()}: Invalid arguments or no NET rankings available!"))

)

ranks<-ranks %>%

dplyr::select(-dplyr::any_of(drop_cols))

ranks<-ranks %>%dplyr::arrange(.data$name,-.data$points)

ranks<-ranks %>%dplyr::arrange(.data$name,-.data$points) %>%

janitor::clean_names()

return(ranks)

}