retry instruments api once

shikokuchuo · Jan 15, 2024 · d8f55c6 · d8f55c6
1 parent dd0c5fd
commit d8f55c6
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/R/switch.R b/R/switch.R
@@ -138,11 +138,13 @@ do_ <- function() {
         url <- sprintf("https://api-fx%s.oanda.com/v3/accounts/%s/instruments",
                        switch(server, practice = "practice", live = "trade"),
                        do_$getAccount(server = server, apikey = apikey))
-        resp <- ncurl(url, convert = FALSE, follow = TRUE,
-                      headers = c("Authorization" = strcat("Bearer ", apikey),
-                                  "User-Agent" = .user_agent))
-        resp[["status"]] == 200L ||
-          stop("status code ", resp[["status"]], " - ", deserialize_json(resp[["data"]]), call. = FALSE)
+        for (i in seq_len(2L)) {
+          resp <- ncurl(url, convert = FALSE, follow = TRUE,
+                        headers = c("Authorization" = strcat("Bearer ", apikey),
+                                    "User-Agent" = .user_agent))
+          resp[["status"]] == 200L && break
+          i == 2L && stop("status code ", resp[["status"]], " - ", deserialize_json(resp[["data"]]), call. = FALSE)
+        }
         parsed <- deserialize_json(resp[["data"]])
         length(parsed[["instruments"]]) || {
           warning(parsed,