Add Encoding to httr::content

GRAPLE · Oct 5, 2020 · 3827744 · 3827744
1 parent 1f4d1e0
commit 3827744
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/GrapleR.R b/R/GrapleR.R
@@ -826,7 +826,7 @@ setMethod(f="GrapleGetExperimentResults",
               qurl<-paste(grapleObject@GWSURL, "GrapleRunResults", grapleObject@JobID, sep="/")
               grapleObject@StatusCode <- -1
               getresp <- GET(qurl, query = list(apikey = grapleObject@APIKey))
-              status <- fromJSON(content(getresp, "text"))
+               status <- fromJSON(content(getresp, "text", encoding = "UTF-8"))
               if(nchar(status$errors) > 0)
                   grapleObject@StatusMsg <- status$errors
               else if(status$status == "success"){