如何使用RCurl下载文件

最后发布: 2014-06-10 16:23:26


问题

我想下载文件,但必须使用POST发送变量才能执行此操作。 现在,我正在使用postForm函数发送变量,但是我不知道如何下载文件。

postForm返回如下内容:

doc <- postForm("http://gpwinfostrefa.pl/GPWIS2/pl/quotes/archive/3", 
                dateFrom="2014-05-10", dateTo = "2014-06-10", 
                instrumentType = "10", isin="PLOPTTC00011", style="post",
                .opts=curlOptions(encoding="UTF-8", http.version=HTTP_VERSION_1_0))

> doc
[1] d0 cf 11 e0 a1 b1 1a e1 00 00 00 00 00 00 00 00 00 00 00 00 ...

attr(,"Content-Type")       charset 
"application/csv"           "UTF-8"

> str(doc)
atomic [1:10752] d0 cf 11 e0 ...
- attr(*, "Content-Type")= Named chr [1:2] "application/csv" "UTF-8"
..- attr(*, "names")= chr [1:2] "" "charset"

但我不知道我是否可以做些什么。 是否可以同时发送变量来下载文件(可能使用其他功能)。

(PS。即使Content-Type声明为csv,该文件也是Excel文件)

r rcurl
回答

将其作为二进制向量写入文件:

 > writeBin(as.vector(doc),"doc.xls")

然后,我可以通过Libre Office打开该文件。

当您提出整个问题时,回答起来非常容易!