data-raw/schedules.R

In jrogol/broadcastR: Tools for ACC Network Broadcasts

## code to prepare baseball and softball schedule datasets goes here
library(dplyr)

softball <- broadcastR:::getSchedule("softball",2020)

softball %>% 
  mutate(team = case_when(
    stringr::str_detect(team, "NCAA|ACC") ~ "Postseason",
    stringr::str_detect(team, "Game \\d+") ~ "Virginia",
    TRUE ~ team)) %>% 
  filter(team != "Postseason") %>% 
  write.csv("data-raw/softballSchedule.csv")

baseball <- broadcastR:::getSchedule("baseball",2020)

baseball %>% 
  mutate(team = case_when(
    stringr::str_detect(team, "NCAA|ACC") ~ "Postseason",
    stringr::str_detect(team, "Game \\d+") ~ "Virginia",
    TRUE ~ team)) %>% 
  filter(team != "Postseason") %>% 
  write.csv("data-raw/baseballSchedule.csv")

# Fill out with roster and stat links by hand.