tonyelhabr

This is useful if you simply want to copy-paste some code output without having to run code (or render/knit a whole document).

Method 1

## Based on internals of reprex:::reprex_impl
print_df_for_chunk <- function(code_string) {
  reprex_document_options <- list(
    venue = 'gh', 

tonyelhabr

Setup.

library(googleway)
library(dplyr)
library(tibble)

DATA_DIR <- "path/to/dir"
dir.create(DATA_DIR, showWarnings = FALSE, recursive = TRUE)

tonyelhabr

library(rvest)
library(tibble)

url <- 'https://fbref.com/en/comps/Big5/Big-5-European-Leagues-Stats'
page <- read_html(url)

team_elements <- page |> 
  html_elements('table') |> 

tonyelhabr

library(gh)
library(purrr)

token <- Sys.getenv("GITHUB_PAT")
REPO <- "my-repo"
OWNER <- "me"

runs <- gh::gh(
 "GET /repos/:owner/:repo/actions/runs",

tonyelhabr

Full set of fotmob shot releases here: https://github.com/JaseZiv/worldfootballR_data/releases/tag/fotmob_match_details

raw_shots <- readr::read_csv('https://github.com/JaseZiv/worldfootballR_data/releases/download/fotmob_match_details/47_match_details.csv')
#> Rows: 28667 Columns: 43
#> ── Column specification ────────────────────────────────────────────────────────
#> Delimiter: ","
#> chr (18): league_name, league_round_name, parent_league_season, match_time_u...
#> dbl (22): match_id, match_round, league_id, parent_league_id, home_team_id, ...

tonyelhabr

Raw data pull

library(StatsBombR)
library(worldfootballR)
library(dplyr)
library(janitor)
library(tibble)

tonyelhabr

library(httr)
library(tibble)
library(tidyr)
library(dplyr)
library(purrr)
library(janitor)
library(cli)
library(stringr)

tonyelhabr

tonyelhabr

This is my attempt to replicate the analysis by Laurie Shaw here.

Creating some fake data.

library(tibble)
library(purrr)
library(tidyr)
library(MASS)
library(ggplot2)

tonyelhabr

library(readr)
library(dplyr)
opta_club_rankings <- read_csv('https://github.com/tonyelhabr/club-rankings/releases/download/club-rankings/opta-club-rankings.csv')
opta_club_rankings |> 
  filter(updated_at == max(updated_at))
#> # A tibble: 3,000 × 7
#>     rank team              rating `ranking change 7 days` date       updated_at          id                       
#>    <dbl> <chr>              <dbl>                   <dbl> <date>     <dttm>              <chr>