fix request API usage

OldLipe · OldLipe · commit 85856a9df23c · 2024-07-23T21:20:32.000Z
diff --git a/R/api_cube.R b/R/api_cube.R
@@ -1334,7 +1334,7 @@ NULL
             {
                 res <- .get_request(
                     url = url,
-                    headers = c("Ocp-Apim-Subscription-Key" = access_key)
+                    headers = list("Ocp-Apim-Subscription-Key" = access_key)
                 )
                 res <- .response_check_status(res)
                 .response_content(res)
diff --git a/R/api_download.R b/R/api_download.R
@@ -138,7 +138,11 @@
             file <- .file_path("file://", file, sep = "")
         }
         # Perform request
-        out <- .retry_request(url = file, path = out_file, n_tries = n_tries)
+        out <- .retry_request(
+            url = file,
+            path = out_file,
+            n_tries = n_tries
+        )
         # Verify error
         if (.response_is_error(out)) {
             warning(paste("Error in downloading file", file))

Original file line number	Diff line number	Diff line change
`@@ -1334,7 +1334,7 @@ NULL`
`1334`	`1334`	`{`
`1335`	`1335`	`res <- .get_request(`
`1336`	`1336`	`url = url,`
`1337`		`- headers = c("Ocp-Apim-Subscription-Key" = access_key)`
	`1337`	`+ headers = list("Ocp-Apim-Subscription-Key" = access_key)`
`1338`	`1338`	`)`
`1339`	`1339`	`res <- .response_check_status(res)`
`1340`	`1340`	`.response_content(res)`