【发布时间】:2020-02-19 02:51:28
【问题描述】:
您好 :) 我正在尝试从 XYZ 网站自动下载电子表格。该代码运行良好,通过授权没有问题并下载文件。但是,当我尝试更改下载目录时,它开始下载文件,但立即在浏览器中给我文件下载错误。我尝试更改下载目录的方式是添加:
eCaps <- list(
chromeOptions =
list(prefs = list("profile.default_content_settings.popups" = 0L,
"download.prompt_for_download" = FALSE,
"directory_upgrade" = TRUE,
"download.default_directory" = "C:/XXX/YYY"
)
)
)
并将 extraCapabilities = eCaps 添加到 rsDrive():
rD <- rsDriver(browser= "chrome", chromever = "80.0.3987.16", extraCapabilities = eCaps)
没有这两个更改代码运行良好,下载到默认下载目录。有没有办法正确设置它以下载到任何其他目录? 完整代码如下:
library(RSelenium)
eCaps <- list(
chromeOptions =
list(prefs = list("profile.default_content_settings.popups" = 0L,
"download.prompt_for_download" = FALSE,
"directory_upgrade" = TRUE,
"download.default_directory" = "C:/XXX/YYY"
)
)
)
rD <- rsDriver(browser= "chrome", chromever = "80.0.3987.16", extraCapabilities = eCaps)
remDr <- rD$client
appURL <- 'https://XYZ'
remDr$navigate(appURL)
remDr$findElement("id", "loginEmail")$sendKeysToElement(list("email"))
remDr$findElement("id", "loginPassword")$sendKeysToElement(list("password", key='enter'))
appURL2 <- "https://XYZ/XYZ"
remDr$navigate(appURL2)
remDr$navigate(appURL2)
remDr$findElement("link text", "XLSX")$sendKeysToElement(list(key='enter'))
【问题讨论】:
-
来自条款和条件:“除非这些条款和条件另有允许,否则您不得修改、复制、抓取、分发、传输、显示、复制、复制、发布、许可、框架未经 WGC 事先书面授权和 WGC 的适当认可,以任何方式全部或部分链接、创建衍生作品、转让或以其他方式使用本网站或本网站上的信息和材料。请求此类授权,请通过 info@gold.org 与我们联系。”
-
@42 谢谢你的警惕,我的错。尽管不幸的网站示例,问题在未来的其他案例中仍然存在,你能帮帮我吗?
标签: r selenium selenium-webdriver selenium-chromedriver rselenium