Use anonymous function in pipe instead of _ to avoid R package build …

…error
Sage-Bionetworks · Feb 16, 2024 · a584e92 · a584e92
1 parent 2289448
commit a584e92
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/R/schematic_rest_api.R b/R/schematic_rest_api.R
@@ -34,7 +34,7 @@ manifest_download <- function(url = "http://localhost:3001/v1/manifest/download"
     ) |>
     httr2::req_perform()
   resp |> httr2::resp_body_string() |>
-    gsub('NaN', '"NA"', x = _) |>
+    (function(d) gsub('NaN', '"NA"', x = d))() |>
     jsonlite::fromJSON()
 }
 
@@ -150,7 +150,7 @@ manifest_validate <- function(url="http://localhost:3001/v1/model/validate",
       httr2::req_body_multipart(file_name=curl::form_file(file_name)) |>
       httr2::req_retry(
         max_tries = 3,
-        is_transient = \(resp) httr2::resp_status(resp) %in% c(429, 500, 503)
+        is_transient = \(resp) httr2::resp_status(resp) %in% c(429, 500, 503, 504)
       ) |>
       httr2::req_error(is_error = \(resp) FALSE) |>
       httr2::req_perform()
@@ -168,7 +168,7 @@ manifest_validate <- function(url="http://localhost:3001/v1/model/validate",
       ) |>
       httr2::req_retry(
         max_tries = 3,
-        is_transient = \(resp) httr2::resp_status(resp) %in% c(429, 500, 503)
+        is_transient = \(resp) httr2::resp_status(resp) %in% c(429, 500, 503, 504)
       ) |>
       httr2::req_error(is_error = \(resp) FALSE) |>
       httr2::req_perform()

diff --git a/functions/schematic_rest_api.R b/functions/schematic_rest_api.R
@@ -34,7 +34,7 @@ manifest_download <- function(url = "http://localhost:3001/v1/manifest/download"
     ) |>
     httr2::req_perform()
   resp |> httr2::resp_body_string() |>
-    gsub('NaN', '"NA"', x = _) |>
+    (function(d) gsub('NaN', '"NA"', x = d))() |>
     jsonlite::fromJSON()
 }
 
@@ -150,7 +150,7 @@ manifest_validate <- function(url="http://localhost:3001/v1/model/validate",
       httr2::req_body_multipart(file_name=curl::form_file(file_name)) |>
       httr2::req_retry(
         max_tries = 3,
-        is_transient = \(resp) httr2::resp_status(resp) %in% c(429, 500, 503)
+        is_transient = \(resp) httr2::resp_status(resp) %in% c(429, 500, 503, 504)
       ) |>
       httr2::req_error(is_error = \(resp) FALSE) |>
       httr2::req_perform()
@@ -168,7 +168,7 @@ manifest_validate <- function(url="http://localhost:3001/v1/model/validate",
       ) |>
       httr2::req_retry(
         max_tries = 3,
-        is_transient = \(resp) httr2::resp_status(resp) %in% c(429, 500, 503)
+        is_transient = \(resp) httr2::resp_status(resp) %in% c(429, 500, 503, 504)
       ) |>
       httr2::req_error(is_error = \(resp) FALSE) |>
       httr2::req_perform()