helper functions update

Integration/MINERVA_access/minerva_access_functions.R

@@ -9,14 +9,14 @@ library(httr)
 library(jsonlite)
 
 ### A convenience function to handle API queries
-ask_GET <- function(fask_url, verbose = F) {
+ask_GET <- function(fask_url, verbose = F, encoding = "UTF-8") {
   if(verbose) {
     message(URLencode(fask_url))
   }
   resp <- httr::GET(url = URLencode(fask_url),
                     httr::add_headers('Content-Type' = "application/x-www-form-urlencoded"))
   if(httr::status_code(resp) == 200) {
-    return(httr::content(resp, as = "text"))
+    return(httr::content(resp, as = "text", encoding = encoding))
   }
   return(NULL)
 }
@@ -64,4 +64,4 @@ get_annotation <- function(freferences, ftype) {
          function(x) {
            ifelse(any(x$type == ftype), x$resource[x$type == ftype], NA)
          })
-}
\ No newline at end of file
+}