Look for double-casted spells on T1 in a particular draft_id

check_t1_cards_for_draft_id.R

library(tidyverse)
library(magicr)
library(arrow)

# Download WOE replay data
woe_game_replay_file <- mr_download_17lands_file(
  "WOE", "replay", "premier")

# Load WOE replay data
woe_game_replay <- arrow::open_csv_dataset(
  woe_game_replay_file,
  col_types = schema(
    draft_id = string(),
    user_turn_1_creatures_cast = string(),
    user_turn_1_non_creatures_cast = string(),
    user_turn_1_user_instants_sorceries_cast = string()
  ))

# Check draft_id in question
woe_game_replay %>%
  select(
    draft_id,
    user_turn_1_creatures_cast,
    user_turn_1_non_creatures_cast,
    user_turn_1_user_instants_sorceries_cast,
    ) %>%
  filter(draft_id == "826fd0796eeb45faba48ded398dd6503") %>%
  collect()