r - 如何通过 Rcurl 使用 cookie 下载文件

Question

我正在尝试从需要我的用户名和密码的站点自动下载图片。为了保留我的身份验证，我创建了一个类“CURLHandle”的对象来保留我的凭据。我不明白当我必须下载时如何使用 cookie 传递对象。

#install_github("omegahat/RHTMLForms")
library(RHTMLForms)
library(RCurl)
require(XML)

#create connection function from login form
login<-getHTMLFormDescription("http://mysite//Login.php")  
login<-login$Login
submit<-createFunction(login)

#create section with cookiefile 
curl = getCurlHandle(cookiefile = "", verbose = TRUE)

#Log in
submit(Password=mypass,User=myuser,.curl = curl )

#now I can navigate on the site
my_page<-getURL("http://mysite/table.php?id=988", curl = curl)

#I get for the id 988 an Url png image
my_picture<-getHTMLExternalFiles(my_page)[1]
my_picture<-paste("http://mysite/",my_picture,sep="")


setwd("c:\\temp")
download.file(my_picture, 'my_pic.png', extra = 'curl')

   > trying URL '...'
   > Error in download.file(my_picture, "my_pic.png", extra = "curl") : 
   >   cannot open URL '...'

Answer 1

您可以使用getBinaryURL:

myBin <- getBinaryURL(my_picture, curl = curl)
writeBin(myBin, "my_pic.png")