fix for unicode - UTF-8 page_source

R/webdriver.R

@@ -221,7 +221,7 @@ page_title <- function(){
                                                   customrequest = "GET",
                                                   httpheader = c('Content-Type' = 'application/json;charset=UTF-8'),
                                                   binary = T)))
-
+    Encoding(windowTitle$value)<-"UTF-8"
   return(windowTitle$value)	
 }
 
@@ -299,9 +299,22 @@ page_source <- function(){
                                              customrequest="GET",
                                              httpheader=c('Content-Type'='application/json;charset=UTF-8'),
                                              binary=T)))
-
+  Encoding(source$value)<-"UTF-8"
   return(source$value)
 }
+#' Retrieve cookies
+#' 
+#' Get the current cookies
+#' @export
+#' @return a string containing the page cookies
+get_cookies <- function(){
+  cookies <- fromJSON(rawToChar(getURLContent(paste0(seleniumSession$sessionURL, "/cookie"),
+                                              customrequest = "GET",
+                                              httpheader = c('Content-Type' = 'application/json;charset=UTF-8'),
+                                              binary = T)))
+
+  return(cookies$value)	
+}
 
 #' Find an element via XPath
 #' 

README

@@ -1 +1,7 @@
-R bindings to the Webdriver API
+
+crubba doesn't maintain this package anymore because he/she still doesn't react about my pr.
+So I'm trying to maintain Rwebdriver package.
+Because easier than RSelenium.
+
+
+R bindings to the Webdriver API