# Regular HTTP
txt = getURL("http://www.omegahat.org/RCurl/")
# Then we could parse the result.
if(require(XML))
htmlTreeParse(txt, asText = TRUE)
# HTTPS. First check to see that we have support compiled into
# libcurl for ssl.
if("ssl" %in% names(curlVersion()$features))
getURL("https://sourceforge.net/")
# Create a CURL handle that we will reuse.
curl = getCurlHandle()
pages = list()
for(u in c("http://www.omegahat.org/RCurl/index.html",
"http://www.omegahat.org/RGtk/index.html")) {
pages[[u]] = getURL(u, curl = curl)
}
# Set additional fields in the header of the HTTP request.
# verbose option allows us to see that they were included.
getURL("http://www.omegahat.org", httpheader=c(Accept = "text/html", MyField="Duncan"), verbose = TRUE)
# Arrange to read the header of the response from the HTTP server as
# a separate "stream". Then we can break it into name-value
# pairs. (The first line is the
h = basicTextGatherer()
txt = getURL("http://www.omegahat.org/RCurl", header= TRUE, headerfunction = h[[1]], httpheader = c(Accept="text/html", Test=1), verbose = TRUE)
read.dcf(textConnection(paste(h$value(NULL)[-1], collapse="")))
# Test the passwords.
x = getURL("http://www.omegahat.org/RCurl/testPassword/index.html",
userpwd = "bob:duncantl")
x = getURL("http://www.nytimes.com",
header = TRUE, verbose = TRUE,
cookiefile = "/home/duncan/Rcookies",
netrc = TRUE,
maxredirs = as.integer(20),
netrc.file = "/home2/duncan/.netrc1",
followlocation = TRUE)
d = debugGatherer()
x = getURL("http://www.omegahat.org", debugfunction=d$update, verbose = TRUE)
d$value()
#############################################
# Using an option set in R
opts = curlOptions(header = TRUE, userpwd = "bob:duncantl", netrc = TRUE)
getURL("http://www.omegahat.org/RCurl/testPassword/index.html", verbose = TRUE, .opts = opts)
# Using options in the CURL handle.
h = getCurlHandle(header = TRUE, userpwd = "bob:duncantl", netrc = TRUE)
getURL("http://www.omegahat.org/RCurl/testPassword/index.html", verbose = TRUE, curl = h)
Run the code above in your browser using DataLab