# \donttest{
try({
library(dplyr)
library(tidyr)
results <- fotmob_get_matches_by_date(date = "20210926")
match_ids <- results %>%
dplyr::select(primary_id, ccode, league_name = name, match_id) %>%
dplyr::filter(league_name == "Premier League", ccode == "ENG") %>%
dplyr::pull(match_id)
match_ids # 3609987 3609979
details <- fotmob_get_match_info(match_ids)
})
# }
Run the code above in your browser using DataLab