WP calculator breaks when already providing wp

[guga31bb]

library(tidyverse)

data <- tibble::tibble(
  "receive_2h_ko" = 0,
  "home_team" = "SEA",
  "posteam" = "SEA",
  "score_differential" = 0,
  "half_seconds_remaining" = 1800,
  "game_seconds_remaining" = 3600,
  "spread_line" = 1,
  "down" = 1,
  "ydstogo" = 10,
  "yardline_100" = 75,
  "posteam_timeouts_remaining" = 3,
  "defteam_timeouts_remaining" = 3
)

nflfastR::calculate_win_probability(
  data %>% mutate(vegas_wp = .9)
) %>%
  pull(vegas_wp)

[1] 0.9

nflfastR::calculate_win_probability(
  data
) %>%
  pull(vegas_wp)

[1] 0.5147206