From 3827744fb3075bc498189f1226d0ff5df3710eea Mon Sep 17 00:00:00 2001
From: Vahid Daneshmand <v.daneshmand@gmail.com>
Date: Mon, 5 Oct 2020 18:07:01 -0400
Subject: [PATCH] Add Encoding to httr::content

---
 R/GrapleR.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/GrapleR.R b/R/GrapleR.R
index 03d3473..7955c71 100644
--- 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"){