move to tidyr::spread from spread_

medewitt · Apr 28, 2024 · b50f952 · b50f952
1 parent 2f59f25
commit b50f952
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/R/get_qwi.R b/R/get_qwi.R
@@ -252,11 +252,11 @@ get_qwi <- function(years,
   call <- httr::GET(urls$url[[1]])
 
 
-  if(!substr(call$status_code,1,1) == "2"|
-     show_condition(check_census_api_call(call))!="error"){
+  if(!substr(call$status_code, 1, 1) == "2" ||
+     show_condition(check_census_api_call(call))!="error") {
     # IF 200 was not returned then there was an error.
 
-    if(grepl(pattern = "valid key must", check_census_api_call(call))){
+    if(grepl(pattern = "valid key must", check_census_api_call(call))) {
       stop(check_census_api_call(call))
     }
   }
@@ -265,7 +265,7 @@ get_qwi <- function(years,
 
   #results <- purrr::map(urls$url, httr::GET)
   results <- vector("list", length = nrow(urls))
-  for(i in 1:nrow(urls)){
+  for(i in 1:nrow(urls)) {
     results[[i]] <- httr::GET(urls$url[[i]])
     #print(paste0(i, "out of", nrow(urls)))
   }
@@ -281,7 +281,7 @@ get_qwi <- function(years,
 
   a<- purrr::transpose(output)[["result"]]
 
-  non_error_returns <- tidyr::spread_(
+  non_error_returns <- tidyr::spread(
     dplyr::bind_rows(
       purrr::compact(a)),
     "parameter", "value", fill = NA)