R/ncaa-data.r

In nielsenmarkus11/NCAAcalcutta: NCAA March Madness Calcutta App

#' @title Create a skeleton csv to manually input teams
#' 
#' @examples 
#' \dontrun{
#' # Prep file to input teams manually
#' preteams <- team_skeleton()
#' }
#' 
#' @export
team_skeleton <- function(){
  # Create skeleton
  preteams <- data.frame(rank=rep(1:16,4),
                         region=rep(c("South","East","West","Midwest"),each=16),
                         team=NA)
  
  write.csv(preteams, "preteams.csv",row.names = FALSE, na = "")
  message("\"preteams.csv\" has been saved to your current working directory. Please manually enter the team names and upload using the input_teams() function.")
  return(preteams)
}

#' @title Import csv of NCAA teams
#' 
#' @examples 
#' \dontrun{
#' # Input the 2018 teams
#' teams <- import_teams(system.file("extdata", "ncaa-teams.csv", package = "NCAAcalcutta"))
#' }
#' 
#' @export
import_teams <- function(file_path=system.file("extdata", "ncaa-teams.csv", package = "NCAAcalcutta", mustWork = TRUE)){
  # Upload Teams
  df <- read.csv(file_path, header = TRUE)
  return(df)
}

#' @title Randomize order of teams for Calcutta auction
#' 
#' @examples 
#' \dontrun{
#' # Input the 2018 teams
#' teams <- import_teams(system.file("extdata", "ncaa-teams.csv", package = "NCAAcalcutta"))
#' teams <- randomize_teams(teams, random_seed=123)
#' }
#' 
#' @export
randomize_teams <- function(df,random_seed = 156){
  # Randomize Teams
  set.seed(random_seed)
  teams <- df
  rand1 <- runif(64)
  
  # Randomize which group each seed rank is in...
  teams <- teams[order(teams$rank,rand1),]
  teams$group <- rep(1:4,16)
  
  # Randomize which team is picked first for each group
  rand2 <- runif(64)
  teams <- teams[order(teams$group,rand2),]
  teams$owner <- NA
  teams$bid <- NA
  
  # Output for shiny app
  write.csv(teams, "ncaa-random-teams.csv",row.names = FALSE, na = "")
  return(teams)
}