From a05c35f77ef044c59b7a56cc73775a526f1e42c7 Mon Sep 17 00:00:00 2001
From: CJ Yetman <cyetman@rmi.org>
Date: Sat, 9 Sep 2023 11:59:59 +0200
Subject: [PATCH] update FIPS scraper

---
 dictionary/get_fips.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dictionary/get_fips.R b/dictionary/get_fips.R
index 3e77c20..50b82e2 100644
--- 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',