使用 RSelenium 从 Firefox 下载嵌入式 PDF答案

【问题标题】：Download embedded PDF from Firefox using RSelenium使用 RSelenium 从 Firefox 下载嵌入式 PDF
【发布时间】：2021-09-05 14:23:46
【问题描述】：

我正在尝试使用 RSelenium 从以下页面下载嵌入式 pdf：https://rac.anpad.org.br/index.php/rac/article/view/1479/1672

# Access the web page (this works fine):
library(RSelenium)
driver <- rsDriver(browser = "firefox")
remote_driver <- driver[["client"]]
remote_driver$navigate("https://rac.anpad.org.br/index.php/rac/article/view/1479/1672")

# Download pdf (this is the part not working)
button <- remote_driver$findElement(using = "css selector", "span:nth-child(1)") # this seems to be working
button$clickElement() # but nothing happens here

但是什么都没有发生，甚至没有错误。有人可以告诉我有什么问题吗？ css选择器有问题吗？或者也许使用 Firefox 设置？我很感激任何帮助！最好的解决方案包括能够设置要下载的文件名。

Obs：我在这里提出了类似的问题 (How to download embedded PDF files from webpage using RSelenium?)，但由于我在下载步骤中遇到问题，所以我决定发布一个更简单的问题。

【问题讨论】：

标签： rselenium

【解决方案1】：

我能够通过以下方式下载文件，

library(RSelenium)
driver <- rsDriver(browser = c("chrome"))

remDr <- driver$client
remDr$navigate("https://rac.anpad.org.br/index.php/rac/article/view/1479/1672")

remDr$findElement(using = "xpath",'/html/body/header/a[3]') -> downloadfile

downloadfile$clickElement()

【讨论】：

谢谢！按照您的代码，下载也对我有用。如果我首先在页面中选择 iframe，它也可以工作：web.elem <- remDr$findElements(using = "css", "iframe") # get all iframes in the webpagesapply(web.elem, function(x){x$getElementAttribute("id")}) # see their names (there's only one)remote_driver$switchToFrame(web.elem[[1]]) # Select the first and only iframebutton <- remote_driver$findElement(using = "xpath", "//*[@id='download']")button$clickElement() # download