Adjustments for piggyback failures

kosukeimai · Feb 13, 2024 · 5e68d24 · 5e68d24
1 parent 3e6c7c8
commit 5e68d24
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -8,6 +8,7 @@ Authors@R: c(
     person("Brandon", "Bertelsen", , "[email protected]", role = c("aut", "cre")),
     person("Santiago", "Olivella", , "[email protected]", role = "aut"),
     person("Evan", "Rosenman", , "[email protected]", role = "aut"),
+    person("Alex", "Rossell Hayes", "[email protected]", role = "aut")),
     person("Kosuke", "Imai", , "[email protected]", role = "aut")
   )
 Description: Predicts individual race/ethnicity using surname, first name,

diff --git a/R/merge_names.R b/R/merge_names.R
@@ -338,7 +338,8 @@ merge_names <- function(voter.file, namesToUse, census.surname, table.surnames =
 wru_data_preflight <- function() {
   dest <- ifelse(getOption("wru_data_wd", default = FALSE), getwd(), tempdir())
   tryCatch(
-    piggyback::pb_download(repo = "kosukeimai/wru", dest = dest), 
-    error = function(e) message("There was an error retrieving data", e$message)
+    # Oddity of conditions for .token. Ignores token if is ""
+    piggyback::pb_download(repo = "kosukeimai/wru", dest = dest, .token = ""), 
+    error = function(e) message("There was an error retrieving data: ", e$message)
   )
 }