如何在 RSelenium 中选择下拉选项？答案

【问题标题】：How do I select dropdown option in RSelenium?如何在 RSelenium 中选择下拉选项？
【发布时间】：2021-09-22 09:03:54
【问题描述】：

我正在尝试抓取 https://webgate.ec.europa.eu/competition/transparency/public/search/results 并在选择国家/地区后卡在第二页。我想从 Dropbox 目标中进行选择 - 区域援助计划、中小企业和初创企业援助。

这是目前的代码 -

remDr <- remoteDriver(remoteServerAddr = "localhost", port = 4445L, extraCapabilities = fprof )
remDr$open()


#regular r vest






## Downloading Cartels

remDr$navigate("https://webgate.ec.europa.eu/competition/transparency/public?lang=en")  # load search page 
morereviews <- remDr$findElements(using = "css", "#selectAll") 
morereviews[[1]]$clickElement()
morereviews <- remDr$findElements(using = "css", ".button-search")  
morereviews[[1]]$clickElement()
morereviews <- remDr$findElements(using = "css", "#currency-EUR")  
morereviews[[1]]$clickElement()
remDr$screenshot(display = TRUE)

按照这个，我可以点击下拉框但无法选择选项，任何帮助将不胜感激，谢谢！

【问题讨论】：

标签： r web-scraping rselenium

【解决方案1】：

这个 ui 元素是用来打字的，所以你可以这样做：

library(RSelenium)
remDr <- remoteDriver(remoteServerAddr = "localhost", port = 4444)
remDr$open()

remDr$navigate("https://webgate.ec.europa.eu/competition/transparency/public?lang=en")  # load search page 
morereviews <- remDr$findElements(using = "css", "#selectAll") 
morereviews[[1]]$clickElement()
morereviews <- remDr$findElements(using = "css", ".button-search")  
morereviews[[1]]$clickElement()
morereviews <- remDr$findElements(using = "css", "#currency-EUR")  
morereviews[[1]]$clickElement()

morereviews <- remDr$findElements(using = "css", "#objectives-input") 
morereviews[[1]]$clickElement()
morereviews[[1]]$sendKeysToElement(list("reg", selKeys$down_arrow, selKeys$enter))
morereviews[[1]]$sendKeysToElement(list("sme", selKeys$down_arrow, selKeys$enter))
morereviews[[1]]$sendKeysToElement(list("aid for start", selKeys$down_arrow, selKeys$enter))
remDr$screenshot(display = TRUE)

【讨论】：