Merge pull request #7 from cloudyr/fix-minor-issues

DESCRIPTION

@@ -17,3 +17,4 @@ LazyData: TRUE
 URL: https://github.com/cloudyr/limer
 BugReports: https://github.com/cloudyr/limer/issues
 RoxygenNote: 5.0.1
+Suggests: testthat

R/call_limer.R

@@ -36,5 +36,5 @@ call_limer <- function(method, params = list(), ...) {
   r <- POST(getOption('lime_api'), content_type_json(),
             body = jsonlite::toJSON(body.json, auto_unbox = TRUE), ...)
 
-  return(jsonlite::fromJSON(content(r, as='text'))$result)   # incorporated fix by petrbouchal
+  return(jsonlite::fromJSON(content(r, as='text', encoding="utf-8"))$result)   # incorporated fix by petrbouchal
 }

R/get_session_key.R

@@ -26,7 +26,7 @@ get_session_key <- function(username = getOption('lime_username'),
   r <- POST(getOption('lime_api'), content_type_json(),
             body = jsonlite::toJSON(body.json, auto_unbox = TRUE))
 
-  session_key <- as.character(jsonlite::fromJSON(content(r))$result)
+  session_key <- as.character(jsonlite::fromJSON(content(r, encoding="utf-8"))$result)
   session_cache$session_key <- session_key
   session_key
 }

tests/testthat.R

@@ -0,0 +1,4 @@
+library(testthat)
+library(limer)
+
+# test_check("limer")