如何从HTML表单R下载文件

Question

当我按ctrl + s并将此页面保存在Web浏览器中时

http://www.kegg.jp/kegg-bin/show_pathway?zma00944+default%3dred+cpd:C01514+cpd:C05903+cpd:C01265+cpd:C01714

我下载了html表单和包含一些png文件的文件夹。 我对具有已知模式的png文件感兴趣。

有没有办法以相同的方式从R下载它们？

我正在努力：

 download.file("http://www.kegg.jp/kegg-bin/show_pathway?zma00944+default%3dred+cpd:C01514+cpd:C05903+cpd:C01265+cpd:C01714","form.html", mode = "wb")

但我只下载html表单，而不下载相关的png。

谢谢

Answer 1

这将使您参与其中：

source("http://bioconductor.org/biocLite.R")
biocLite("KEGGREST")
library(png)
library(KEGGREST)
png <- keggGet(c("zma00944","default=red","cpd:C01514","cpd:C05903","cpd:C01265","cpd:C01714"), "image")
t <- tempfile()
writePNG(png, t)
browseURL(t)

不幸的是，它没有执行您可能想要的红色突出显示。 我不确定是否可以通过REST API完成。

因此，可能您可以直接下载URL，然后将其解析为PNG，然后下载该URL：

download.file("http://www.kegg.jp/kegg-bin/show_pathway?zma00944+default%3dred+cpd%3aC01514+cpd%3aC05903+cpd%3aC01265+cpd%3aC01714", "form.html")
lines <- readLines("form.html")
imgUrl <- lines[grep('img src="/', lines)]
url <- paste0("http://www.kegg.jp/", strsplit(imgUrl, '"')[[1]][2])
download.file(url, "file.png")
browseURL("file.png")