error message extraction fix for json output

PavlidisLab · Dec 11, 2024 · 414d82f · 414d82f
1 parent ef00dac
commit 414d82f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/body.R b/R/body.R
@@ -176,7 +176,11 @@ setGemmaPath <- function(path){
     } else if (response$status_code == 503) {
         stop(call,'\n',response$status_code, ": Service Unavailable. Gemma might be under maintenance.")
     } else {
-        message = response$content %>% rawToChar() %>% strsplit('\n') %>% {.[[1]]} %>% {.[grepl('Message',.)]} %>% stringr::str_extract('(?<=Message: ).*')
+        if(isFile){
+            message <- response$content %>% rawToChar() %>% strsplit('\n') %>% {.[[1]]} %>% {.[grepl('Message',.)]} %>% stringr::str_extract('(?<=Message: ).*')
+        } else{
+            message <- response$content %>% rawToChar() %>% jsonlite::fromJSON() %>% {.$error$message}
+        }
         stop(call, '\n', "HTTP code ", response$status_code,": ",message)
     }
 }