R/utils.r

In dfs-with-r/ffespn: Get ESPN fantasy football data

is_scalar <- function(x) identical(length(x), 1L)

list_to_dt <- function(x) {
  x <- vapply(x, function(d) if (is.null(d)) NA_real_ else d/1000, double(1L))
  as.POSIXct(x, origin = "1970-01-01", tz = "America/New_York")
}

team_id_to_name <- function(id) {
  rows <- purrr::map_int(id, function(x) {
    matches <- x == team_ids$id
    if (any(matches)) which(matches)[1]
    else NA_integer_
  })

  team_ids$name[rows]
}

team_name_to_id <- function(name) {
  rows <- purrr::map_int(name, function(x) {
    matches <- x == team_ids$name
    if (any(matches)) which(matches)[1]
    else NA_integer_
  })

  team_ids$id[rows]
}

stat_id_to_name <- function(id) {
  dplyr::case_when(
    # passing
    id == 0 ~ "pass_att",
    id == 1 ~ "pass_cmp",
    id == 2 ~ "pass_inc",
    id == 3 ~ "pass_yds",
    id == 4 ~ "pass_tds",
    #id == 10 ~ "pass_sacked",
    id == 15 ~ "pass_tds_40_plus_yds",
    id == 16 ~ "pass_tds_50_plus_yds",
    id == 17 ~ "pass_yds_300_399",
    id == 18 ~ "pass_yds_400_plus",
    id == 19 ~ "pass_2pt",
    id == 20 ~ "pass_int",

    # rushing
    id == 23 ~ "rush_att",
    id == 24 ~ "rush_yds",
    id == 25 ~ "rush_tds",
    id == 26 ~ "rush_2pt",
    id == 35 ~ "rush_td_40_plus_yds",
    id == 36 ~ "rush_td_50_plus_yds",
    id == 37 ~ "rush_yds_100_199",
    id == 38 ~ "rush_yds_200_plus",

    # receptions
    id == 42 ~ "rec_yds",
    id == 43 ~ "rec_tds",
    id == 44 ~ "rec_2pt",
    id == 53 ~ "rec_cmp",
    id == 58 ~ "rec_tgt",

    # misc
    id == 64 ~ "sacked",
    id == 68 ~ "fumbles",
    id == 72 ~ "fumbles_lost",

    # kicking
    id == 74 ~ "fg_cmp_50",
    id == 75 ~ "fg_att_50",
    id == 76 ~ "fg_miss_50",
    id == 77 ~ "fg_cmp_40_49",
    id == 78 ~ "fg_att_40_49",
    id == 79 ~ "fg_miss_40_49",
    id == 80 ~ "fg_cmp_1_39",
    id == 81 ~ "fg_att_1_39",
    id == 82 ~ "fg_miss_1_39",
    id == 83 ~ "fg_cmp_tot",
    id == 84 ~ "fg_att_tot",
    id == 85 ~ "fg_miss_tot",
    id == 86 ~ "fg_cmp_xp",
    id == 87 ~ "fg_att_xp",
    id == 88 ~ "fg_miss_xp",

    # defense
    id == 89 ~ "def_pts_against_0",
    id == 90 ~ "def_pts_against_1_6",
    id == 91 ~ "def_pts_against_7_13",
    id == 92 ~ "def_pts_against_14_17",
    id == 93 ~ "def_block_ret_tds",
    id == 94 ~ "def_total_ret_tds",
    id == 95 ~ "def_ints",
    id == 96 ~ "def_fumbles_recovered",
    id == 97 ~ "def_blocks",
    id == 98 ~ "def_safeties",
    id == 99 ~ "def_sacks",
    id == 100 ~ "def_stuffs",
    id == 101 ~ "special_kick_ret_tds",
    id == 102 ~ "special_punt_ret_tds",
    id == 103 ~ "def_fumble_ret_tds",
    id == 104 ~ "def_int_ret_tds",
    id == 105 ~ "def_tds",
    id == 106 ~ "def_fumbles_forced",
    id == 107 ~ "def_tackles_assisted", # tackles assisted
    id == 108 ~ "def_tackles_solo",
    id == 109 ~ "def_tackles_total", # total tackles
    id == 113 ~ "def_passes_defended", # passes defended
    id == 114 ~ "special_kick_ret_yds",
    id == 115 ~ "special_punt_ret_yds",
    id == 120 ~ "def_pts_against",
    id == 121 ~ "def_pts_against_18_20",
    id == 122 ~ "def_pts_against_21_27",
    id == 123 ~ "def_pts_against_28_34",
    id == 124 ~ "def_pts_against_35_45",
    id == 125 ~ "def_pts_against_46_plus",
    id == 127 ~ "def_yds_against",

    # punts
    id == 138 ~ "punts",
    id == 139 ~ "punts_yds",
    id == 140 ~ "punts_inside_10",
    id == 141 ~ "punts_inside_20",
    id == 142 ~ "punts_blocked",
    id == 143 ~ "punts_returned",
    id == 144 ~ "punts_return_yds",
    id == 145 ~ "punts_touchbacks",
    id == 146 ~ "punts_fair_catches",

    # punts (need to be verified)
    id == 148 ~ "punts_44_plus",
    id == 149 ~ "punts_42_44",
    id == 150 ~ "punts_40_42",
    id == 151 ~ "punts_38_40",
    id == 152 ~ "punts_36_38",
    id == 153 ~ "punts_34_36",
    id == 154 ~ "punts_32_34",

    # misc
    id == 155 ~ "team_win",
    id == 156 ~ "team_loss",
    id == 158 ~ "team_points_scored",
    id == 159 ~ "team_points_scored2",
    id == 160 ~ "team_margin_of_victory",
    id == 173 ~ "team_margin_of_victory2",
    id == 174 ~ "team_win2",
    id == 210 ~ "games",
    TRUE ~ paste0("stat_", id)
  )
}

pos_id_to_name <- function(x) {
  dplyr::case_when(
    x == 1 ~ "QB",
    x == 2 ~ "RB",
    x == 3 ~ "WR",
    x == 4 ~ "TE",
    x == 5 ~ "K",
    x == 7 ~ "P",
    x == 9 ~ "DT",
    x == 10 ~ "DE",
    x == 11 ~ "LB",
    x == 12 ~ "CB",
    x == 13 ~ "S",
    x == 14 ~ "HC",
    x == 16 ~ "DST",
    TRUE ~ paste0("pos_", x)
  )
}

slot_names <- c("QB", "TQB", "RB", "RB/WR", "WR", "WR/TE", "TE", "OP",
                 "DT", "DE", "LB", "DL", "CB", "S", "DB", "DP", "DST",
                 "K", "P", "HC", "FLEX", "EDR")

slot_name_to_id <- function(x) {
  # QB: 0, RB: 2, WR: 4, TE: 6, DST: 16, K: 17
  dplyr::case_when(
    x == "QB" ~ 0L,
    x == "TQB" ~ 1L, # team quarterback
    x == "RB" ~ 2L,
    x == "RB/WR" ~ 3L,
    x == "WR" ~ 4L,
    x == "WR/TE" ~ 5L,
    x == "TE" ~ 6L,
    x == "OP" ~ 7L, # offensive player
    x == "DT" ~ 8L,
    x == "DE" ~ 9L,
    x == "LB" ~ 10L,
    x == "DL" ~ 11L,
    x == "CB" ~ 12L,
    x == "S" ~ 13L,
    x == "DB" ~ 14L,
    x == "DP" ~ 15L, # defensive player
    x == "DST" ~ 16L,
    x == "K" ~ 17L,
    x == "P" ~ 18L,
    x == "HC" ~ 19L, # head coach
    x == "FLEX" ~ 23L,
    x == "EDR" ~ 24L,
    TRUE ~ NA_integer_
  )
}

#' Slot Ids to Name
#'
#' @param x slot id
#'
#' @references {
#' \url{https://support.espn.com/hc/en-us/articles/115003939432-Roster-Slots-Offense-}
#' }
slot_id_to_name <- function(x) {
  x <- as.numeric(x)
  dplyr::case_when(
    x == 0 ~ "QB",
    x == 1 ~ "TQB", # team quarterback
    x == 2 ~ "RB",
    x == 3 ~ "RB/WR",
    x == 4 ~ "WR",
    x == 5 ~ "WR/TE",
    x == 6 ~ "TE",
    x == 7 ~ "OP", # offensive player
    x == 8 ~ "DT",
    x == 9 ~ "DE",
    x == 10 ~ "LB",
    x == 11 ~ "DL",
    x == 12 ~ "CB",
    x == 13 ~ "S",
    x == 14 ~ "DB",
    x == 15 ~ "DP", # defensive player
    x == 16 ~ "DST",
    x == 17 ~ "K",
    x == 18 ~ "P",
    x == 19 ~ "HC",
    x == 23 ~ "FLEX",
    x == 24 ~ "EDR", # edge rusher,
    x == 25 ~ "Rookie",
    TRUE ~ paste0("slot_", x)
  )
}

camel_to_snake <- function(x) {
  tolower(gsub("(?<!^)(?=[A-Z])", "_", x, perl = TRUE))
}

as_tibble_snake <- function(x) {
  df <- tibble::as_tibble(x)
  colnames(df) <- camel_to_snake(colnames(df))
  df
}

replace_null <- function(x, replace) {
  is_missing <- purrr::map_lgl(x, is.null)
  x[is_missing] <- replace
  x
}