data-raw/DATASET.R

In jasbner/dfs: What the Package Does (One Line, Title Case)

## code to prepare `DATASET` dataset goes here


library(tidyverse)
example_mlb <- read_csv("./data-raw/FanDuel-MLB-2019-10-06-39110-players-list (1).csv")
usethis::use_data(example_mlb)

example_nba <- read_csv("./data-raw/FanDuel-NBA-2019-11-29-41069-players-list.csv")
usethis::use_data(example_nba)

example_nfl <- read_csv("./data-raw/FanDuel-NFL-2019-12-01-40932-players-list.csv")
usethis::use_data(example_nfl)


library(httr)
library(lubridate)
season <- seq(ymd('2019-10-22'),ymd(today()), by = 'days')
daily_season_stats <- NULL
for(i in seq_along(season)){
  d <- season[i]
  url <- paste0("https://stats.nba.com/stats/leaguedashplayerstats?College=&Conference=&Country=&DateFrom=",month(d),"%2F",day(d),"%2F",year(d),"&DateTo=",month(d),"%2F",day(d),"%2F",year(d),"&Division=&DraftPick=&DraftYear=&GameScope=&GameSegment=&Height=&LastNGames=0&LeagueID=00&Location=&MeasureType=Base&Month=0&OpponentTeamID=0&Outcome=&PORound=0&PaceAdjust=N&PerMode=Totals&Period=0&PlayerExperience=&PlayerPosition=&PlusMinus=N&Rank=N&Season=2019-20&SeasonSegment=&SeasonType=Regular+Season&ShotClockRange=&StarterBench=&TeamID=0&TwoWay=0&VsConference=&VsDivision=&Weight=")
dat <- GET(url)
day_1 <- content(dat)
stats <- data.table::rbindlist(day_1$resultSets[[1]]$rowSet)
if(nrow(stats)>0){
names(stats) <- unlist(day_1$resultSets[[1]]$headers)
stats <- stats %>% mutate(date = d)
daily_season_stats <- bind_rows(daily_season_stats,stats)
}
}
daily_season_stats <- daily_season_stats %>% mutate(fd = FG3M*1 + AST*1.5 + BLK * 3 + FGM*2 + FTM * 1 + REB * 1.2 + STL * 3 - TOV * 1)
usethis::use_data(daily_season_stats, overwrite = TRUE)


fd_nba_mapping <- example_nba %>% select(Id,Nickname) %>% mutate(Nickname = gsub("\\.","",Nickname)) %>% left_join(nba_ids %>% mutate(PLAYER_NAME = gsub(" Jr.| Sr.| II| III|\\.","",PLAYER_NAME)), by = c("Nickname" = "PLAYER_NAME")) %>% arrange(Nickname)
fd_nba_mapping <- fd_nba_mapping %>% mutate(PLAYER_ID = case_when(Nickname == "Charlie Brown" ~ 1629718,
                                                                  TRUE ~ as.numeric(PLAYER_ID)))

usethis::use_data(fd_nba_mapping)