Original code
url <- c("https://www.r-project.org/","http://bioconductor.org/")
result <- lapply(url, function(f) {
# TODO: Consider if we want this in the new function
# message(basename(f))
h <- RCurl::basicTextGatherer()
ok <- RCurl::curlPerform(url=f,
nobody=TRUE, headerfunction=h$update)
yy <- h$value()