ALS-7264: Update postJSON to be flexible with response type

hms-dbmi · Sep 8, 2024 · 0c210cf · 0c210cf
1 parent 9d68bce
commit 0c210cf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/query.R b/R/query.R
@@ -297,7 +297,7 @@ runQuery <- function(query, resultType = NULL) {
 #' @export
 getResultByQueryUUID <- function(session, queryUUID) {
   queryJSON = "{}"
-  response = postJSON(session, paste("query/", queryUUID, "/result", sep=""), queryJSON, responseDeserializer = NULL, acceptContentType = httr::accept("application/octet-stream"))
+  response = postJSON(session, paste("query/", queryUUID, "/result", sep=""), queryJSON, responseDeserializer = NULL, acceptContentType = httr::accept("*/*"))
   return(read.csv(text=response, sep=',', check.names=FALSE))
 }
 
@@ -365,7 +365,7 @@ getCount = function(query) {
 
 getResults = function(query) {
   queryJSON = generateQueryJSON(query, expectedResultType = 'DATAFRAME')
-  response = postJSON(query$session, "query/sync/", queryJSON, responseDeserializer = NULL, acceptContentType = httr::accept("application/octet-stream"))
+  response = postJSON(query$session, "query/sync/", queryJSON, responseDeserializer = NULL, acceptContentType = httr::accept("*/*"))
   return(read.csv(text=response, sep=',', check.names=FALSE))
 }