Add dataset with some extraction challenges

# https://twitter.com/buddyherms/status/1576966150680121344
vt_census <- tidycensus::get_decennial(
  geography = "block",
  state = "VT",
  county = "Washington",
  variables = "P1_001N",
  year = 2020
  )

vt_census |> 
  tidyr::separate(
    GEOID,
    into = c("state", "county", "tract", "block"),
    sep = c(2, 5, 11, 15)
    )

https://twitter.com/iandgow/status/1577198761612189696: https://iangow.github.io/far_book/web-data.html?q=Extract#extracting-data-from-messy-formats
rownames(mtcars); https://twitter.com/Natttersley/status/1577026577350946817
https://github.com/rdboyes/adventofcode2020/blob/master/data/input_7.txt; https://twitter.com/randyboyes/status/1576933550393171968
https://github.com/rdboyes/adventofcode2020/blob/master/data/input_14.txt; https://twitter.com/randyboyes/status/1576933550393171968
nflreadr::load_participation(); https://twitter.com/josephjefe/status/1576931962366763008

tidyverse / tidyr

Add dataset with some extraction challenges #1401