SFB week 1 matchups

sfb_w1.R

library(ffscrapr) # on CRAN, woop woop!
library(tidyverse)

base_conn <- mfl_connect(2020,
                         rate_limit_number = 2,
                         rate_limit_seconds = 3)

sfb_leagues <- mfl_getendpoint(base_conn,
                               endpoint = "leagueSearch", 
                               SEARCH = "#SFBX Conference") %>%
  pluck("content","leagues","league") %>%
  tibble() %>%
  unnest_wider(1) %>%
  mutate(conn = map(id,~mfl_connect(2020,
                                    .x,
                                    rate_limit_number = 6,
                                    rate_limit_seconds = 10))) %>% 
  mutate(matchups = map(conn,
                        ~ff_schedule(.x) %>% 
                          filter(week == 1) %>%
                          mutate(total_score = franchise_score + opponent_score) %>% 
                          left_join(ff_franchises(.x) %>% 
                                      select(franchise_id,franchise_name), 
                                    by = c('franchise_id')) %>% 
                          left_join(ff_franchises(.x) %>% 
                                      select(opponent_id = franchise_id, opponent_name = franchise_name),
                                    by = c('opponent_id'))
  ))

df <- sfb_leagues %>% 
  select(matchups) %>% 
  unnest(matchups)