data-raw/create-data-debug.r

In pegeler/unemployment: United States Labor Force Data by County, Annual Averages 1990-2016

for (i in substr(1990:2017, 3,4)) {

  download.file(
    paste0(
      "http://www.bls.gov/lau/laucnty",
      i,
      ".txt"
    ),
    paste0(
      "~/tmp/unemployment_files/",
      "unemployment",
      i,
      ".txt"
    )
  )
}

system(command = "grep 'N.A.' ~/tmp/unemployment_files/*.txt")

unemployment[!complete.cases(unemployment),]