Use curl handle

Author: hadley

R/handle.r

@@ -25,17 +25,17 @@ handle <- function(url, cookies = TRUE) {
   url <- parse_url(http://github.com/%3Cspan%20class=%22pl-smi%22%3Eurl%3C/span%3E)
   cookie_path <- if (cookies) tempfile() else NULL
 
-  h <- RCurl::getCurlHandle(cookiefile = cookie_path, .defaults = list())
+  h <- curl::new_handle(cookiefile = cookie_path)
   structure(list(handle = h, url = url), class = "handle")
 }
 
 #' @export
 print.handle <- function(x, ...) {
-  cat("Host: ", build_url(http://github.com/%3Cspan%20class=%22pl-smi%22%3Ex%3C/span%3E%3Cspan%20class=%22pl-k%22%3E$%3C/span%3E%3Cspan%20class=%22pl-smi%22%3Eurl%3C/span%3E) , " <", ref(x), ">\n", sep = "")
+  cat("Host: ", build_url(http://github.com/%3Cspan%20class=%22pl-smi%22%3Ex%3C/span%3E%3Cspan%20class=%22pl-k%22%3E$%3C/span%3E%3Cspan%20class=%22pl-smi%22%3Eurl%3C/span%3E) , " <", ref(x$handle), ">\n", sep = "")
 }
 
 ref <- function(x) {
-  str_extract(capture.output(print(x$handle@ref)), "0x[0-9a-f]*")
+  str_extract(capture.output(print(x))[1], "0x[0-9a-f]*")
 }
 
 is.handle <- function(x) inherits(x, "handle")
@@ -44,7 +44,7 @@ reset_handle_config <- function(handle, config) {
   # Calls curl_easy_reset (http://curl.haxx.se/libcurl/c/curl_easy_reset.html)
   # Does not change live connections, session ID cache, DNS cache, cookies
   # or shares.
-  RCurl::reset(handle$handle)
+  curl::handle_reset(handle)
   invisible(TRUE)
 }