Merge pull request #343 from vincentarelbundock/update-fips-scraper

update FIPS scraper
vincentarelbundock · Sep 27, 2024 · 5101980 · 5101980
2 parents ecf0013 + a05c35f
commit 5101980
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/dictionary/get_fips.R b/dictionary/get_fips.R
@@ -1,8 +1,8 @@
 source(here::here('dictionary/utilities.R'))
 
-url <- 'http://geonames.nga.mil/gns/html/Docs/GEOPOLITICAL_CODES.xls'
+url <- 'https://web.archive.org/web/20161214044235/http://geonames.nga.mil/gns/html/Docs/GEOPOLITICAL_CODES.xls'
 filename <- tempfile(fileext = '.xls')
-httr::GET(url, write_disk(filename, overwrite=TRUE))
+download.file(url, filename, method = "curl")
 
 bad <- c('AKROTIRI SOVEREIGN BASE AREA', 'ASHMORE AND CARTIER ISLANDS', 'BAKER ISLAND',
          'CLIPPERTON ISLAND', 'CORAL SEA ISLANDS', 'DHEKELIA SOVEREIGN BASE AREA',