R/join_form_and_fixture_history.R

In dafyddhowells/randy: Data and Functions for Modelling Goals Scored in Premier League Football Matches

join_form_and_fixture_history <- function() {

  get_prem_form() %>%
    left_join(
      get_prem_fixture_history(),
      by = c("fixture" = "fixture",
             "date" = "date",
             "team" = "team",
             "home" = "home")) %>%
    select(-fthg.y, -ftag.y) %>%
    rename(fthg = fthg.x, ftag = ftag.x)

}