knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)
library(poweRof10)
library(tidyverse)

poweRof10

R build status stability-wip

poweRof10 is a small package that scrapes data from athletics rankings website www.thepowerof10.info. I'm a big athletics fan and created poweRof10 for a bit of fun to analyse my own performances, but thought it might be worth sharing here. The package is still a little rough around the edges, but the basic functionality should work well enough!

Check out this blog post for some more examples.

Installation

Install from github with:

# install.packages("remotes")
remotes::install_github("hfshr/poweRof10")

Basic usage

You can get the rankings for a specific event/year/gender/age group using the get_event() function:

get_event(event = "100", agegroup = "ALL", gender = "M", year = 2016, top_n = 10) %>% 
  select(rank, perf, name, venue)

Alternatively, you can search for an individual athlete and get their performance history with get_athlete():

get_athlete(fn = "Harry", sn = "Fisher", club = "Cardiff/Cardiff Met Uni") %>% 
  select(event, perf, pos, venue, date) %>% 
  head(10)

Acknowledgements

Thanks to the team that keep www.thepowerof10.info up and running, it's an invaluable resource for many!

Disclaimer

This software is in no way affiliated, endorsed, or approved by www.thepowerof10.info or any of its affiliates.



hfshr/poweRof10 documentation built on Nov. 3, 2021, 12:39 a.m.