Check the cards played on turn one of a Limited MtG game

check_cards_played_t1.R

# To install magicr
# pak::pkg_install("joelnitta/magicr")

library(tidyverse)
library(magicr)

# OP:
# I'm working on some WOE replay data for Premier Draft and I'm seeing some
# stuff I don't understand. On row-index 8541, user plays both "Bakery Raid" and
# "Welcome to Sweet Tooth" on turn one, which can't happen. The same happens on
# rows 184035, 280782,496625. The same thing happens on row 579074 with "Harried
# Spearguard" and "Hopeful Vigil" on turn one. Is anyone else able to see this
# too?

# Define function to read in a single row from WOE replay data
load_woe_game_row_single <- function(row, woe_colnames) {
  # Load a single row of choice
  magicr::mr_get_17lands_data(
    "WOE", "replay", "premier", nrows = 1, skip = row - 1) %>%
    # set column names
    set_names(woe_colnames) %>%
    # convert all values to character to avoid parsing errors when joining rows
    mutate(across(everything(), as.character))
}

# Load card data (card IDs mapped to names)
cards <- data.table::fread(
  "https://17lands-public.s3.amazonaws.com/analysis_data/cards/cards.csv") %>%
  mutate(id = as.character(id))

# Load WOE column names
woe_colnames <- mr_get_17lands_data("WOE", "replay", "premier", nrows = 1) %>%
  colnames()

# Define row numbers to fetch based on question
rows_get <- c(8541, 184035, 280782, 496625, 579074)

# Loop across row numbers and load them
woe_data <- map_df(rows_get, ~load_woe_game_row_single(.x, woe_colnames))

# Select cards cast on turn 1 and get their names
woe_data %>%
  select(draft_id, matches("user_turn_1_.*cast")) %>%
  select(-contains("oppo_")) %>%
  pivot_longer(names_to = "cast", values_to = "id", -draft_id) %>%
  separate_longer_delim(id, delim = "|") %>%
  left_join(select(cards, id, name)) %>%
  filter(!is.na(name))