Better stop for status handling in R client

cmu-delphi · May 3, 2023 · 0442d9a · 0442d9a
1 parent 160d699
commit 0442d9a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R-packages/covidcast/R/covidcast.R b/R-packages/covidcast/R/covidcast.R
@@ -1013,8 +1013,8 @@ covidcast <- function(data_source, signal, time_type, geo_type, time_values,
   }
 
   msg <- "fetch data from API"
-  if (httr::status_code(response) %in% c(429, 401)) {
-    msg <- paste(msg, "anonymously - to register for an API key, visit TODO")
+  if (is.na(auth)) {
+    msg <- paste(msg, "anonymously")
   }
   httr::stop_for_status(response, task = msg)