Scrape Olympic medal board

get_medals(game)

Arguments

game

the Olympic game, in the format of tokyo-2020, see the slug column in the built-in olympic_game data

Value

a tibble of medal table

Examples

get_medals(game = "tokyo-2020")
#> # A tibble: 93 × 6
#>    game       team   gold silver bronze total
#>    <chr>      <chr> <dbl>  <dbl>  <dbl> <dbl>
#>  1 tokyo-2020 USA      39     41     33   113
#>  2 tokyo-2020 CHN      38     32     19    89
#>  3 tokyo-2020 JPN      27     14     17    58
#>  4 tokyo-2020 GBR      22     20     22    64
#>  5 tokyo-2020 ROC      20     28     23    71
#>  6 tokyo-2020 AUS      17      7     22    46
#>  7 tokyo-2020 NED      10     12     14    36
#>  8 tokyo-2020 FRA      10     12     11    33
#>  9 tokyo-2020 GER      10     11     16    37
#> 10 tokyo-2020 ITA      10     10     20    40
#> # … with 83 more rows