R/parse_salaries.R

In jimtheflash/dfstools:

#' Parse dfs player salary files
#' @param path character, path to salary file
#' @param sport character, which sports league? Supports nfl, nba, golf for draftkings
#' @param platform charcter, which dfs platform? Supports draftkings
#' @param remove_postponed_games logical should games that are postponed by removed from slate? default is TRUE
#' @return data.frame of players with salary info
#' @export
parse_salaries <- function(path = NULL, sport = NULL, platform = NULL,
                           remove_postponed_games = TRUE) {
  if (platform %in% c('draftkings', 'draftkings-showdown', 'draftkings-tiers', 'draftkings-tiers-pm')) {
    if (sport %in% c('nba', 'nfl', 'golf')) {
      # read path; it is a csv but it is ugly, so use readLines()
      chars <- readLines(path)
      # get the table headers
      table_names <- chars[8]
      table_names <- gsub(',,,,,,,,,,,,,,', '', table_names)
      table_names <- unlist(strsplit(table_names, ','))
      # read in the data lines
      table_data <- chars[9:length(chars)]
      ## since sometimes there are locations in tournament names that is indicated with a ', ' we can replace that string - it is nowhere else
      table_data <- gsub(', ', '_', table_data)
      # parse some data lines
      table_data <- unlist(lapply(table_data, function(x) gsub(',,,,,,,,,,,,,,', '', x)))
      table_data <- strsplit(table_data, ',')
      # make a table
      tidy_table <- data.frame(do.call(rbind, table_data), stringsAsFactors = FALSE)
      names(tidy_table) <- table_names
      salaries <- tidy_table[, names(tidy_table) != '']

      if (remove_postponed_games == TRUE) {
        salaries <- salaries[!grepl('[Pp]ostpone', salaries$`Game Info`), ]
      }
    }
  }
  if (platform == 'fanduel') {
    if (sport == 'nfl') {
      salaries <- read.csv(path, stringsAsFactors = FALSE)
      salaries <- salaries[, !grepl('X', names(salaries))]
    }
    if (sport == 'nba') {
      stop('coming soon!')
    }
  }
  # return
  return(salaries)
}