1. TCGAbiolinks
  2. Commit d8ea98103154787e7cc268b67e0940629ae965f6
Browse code

Invert JSON retrievel to GET strategy. Seems to be working better.

Tiago Silva authored on 10/03/2023 19:51:03
Showing 1 changed files
R/query.R
History View file @ d8ea9810
... ... 
@@ -288,11 +288,11 @@ GDCquery <- function(
288 288 
                 sample.type = sample.type
289 289 
             )
290 290 
             json  <- tryCatch(
291 
-                getURL(url,fromJSON,timeout(600),simplifyDataFrame = TRUE),
291 
+                fromJSON(content(getURL(url,GET,timeout(600)), as = "text", encoding = "UTF-8"), simplifyDataFrame = TRUE),
292 292 
                 error = function(e) {
293 293 
                     message(paste("Error: ", e, sep = " "))
294 294 
                     message("We will retry to access GDC!")
295 
-                    fromJSON(content(getURL(url,GET,timeout(600)), as = "text", encoding = "UTF-8"), simplifyDataFrame = TRUE)
295 
+                    getURL(url,fromJSON,timeout(600),simplifyDataFrame = TRUE)
296 296 
                 }
297 297 
             )
298 298 
         }