SupremeCourtFill

SCF.R

library(readr)
library(dplyr)

nominees <- read_csv("https://docs.google.com/spreadsheets/d/1xsjTL6DbfEyR57MoZD3lIG8tTU-yblRA9ehQuaoj9Wg/pub?gid=0&single=true&output=csv")

confirmations <- nominees %>%
  filter(Result == "confirmed")

longConfirmations <- confirmations %>%
  filter(Days > 62)

SenateAttempts <- nominees %>%
  filter(! Result %in% c("declined"))

SenateLong <- SenateAttempts %>%
  filter(Days > 62)

SenateMatch <- SenateAttempts %>%
  filter(Party == SenateControl)

SenateMatchConfirmations <- SenateMatch %>%
  filter(Result == "confirmed")

SenateMatchLong <- SenateMatchConfirmations %>%
  filter(Days > 62)