使用 RSelenium 读取下拉菜单元素中的值

我正在使用 RSelenium 导航到站点并与元素交互。

问题：使用 RSelenium，如何读取下拉菜单中的选项列表，以便我可以识别可用的最新月份并使用它将下拉菜单设置为正确的值？

On 某个网站 http://jamaserv.jama.or.jp/newdb/eng/index.html为用户提供了一个下拉菜单来设置一年中的月份，从而定义了依次用于显示或下载每月数据的日期范围的终点。随着一年中额外月份的数据可用，下拉列表中的选项也会发生变化。

到 7 月底，下拉菜单将有 6 个选项，从 1 月到 6 月。请注意，特定月份的数据在该月结束后大约 4-6 周发布，因此您要到 7 月下旬才能获得 6 月的数据，依此类推。我可以使用数字 1 到 12 设置值，没有任何问题，前提是下拉列表实际上包含相应的选项。

例如，如果 7 月的数据尚未发布（即，如果 7 月尚未出现在选项下拉列表中），并且如果我尝试将下拉列表设置为“7”，则会收到错误消息我想避免。该数据没有定期出现，因此我不能简单地假设 X 月的数据将在 Y 日出现。

我相信硒本身一个辅助类 https://sqa.stackexchange.com/questions/12029/how-do-i-work-with-dropdowns-in-selenium-webdriver可用，但我不确定是否可以通过 RSelenium 访问它。

示例代码如下 - 可能有点笨拙，因为我对这个包还很不熟悉。

library(RSelenium)
RSelenium::checkForServer()
RSelenium::startServer()

remDr <- remoteDriver(remoteServerAddr = "localhost",
                      port = 4444,
                      browserName = "firefox"
                      )
remDr <- remoteDriver()
Sys.sleep(5)
remDr$open()
remDr$getStatus()

remDr$navigate("http://jamaserv.jama.or.jp/newdb/eng/index.html")

## Switch to left frame
frameElems <- remDr$findElements(using = "tag name", "frame")
sapply(frameElems, function(x){x$getElementAttribute("src")})
remDr$switchToFrame(frameElems[[1]])

webElem <- remDr$findElement(using = 'xpath', "//select[@name='txtTargetToMm']")

## Use javascript to set values
script <- paste0("arguments[0].value = '", 2, "'; arguments[0].onchange();") # set to February
remDr$executeScript(script, list(webElem))
webElem$getElementAttribute('value')    # check to see if it worked

您可以使用selectTag与 HTML 交互的方法select要素：

library(RSelenium)

rD <- rsDriver(verbose = F)
remDr <- rD$client
remDr$navigate("http://jamaserv.jama.or.jp/newdb/eng/index.html")

## Switch to left frame
frameElems <- remDr$findElements(using = "tag name", "frame")
sapply(frameElems, function(x){x$getElementAttribute("src")})
remDr$switchToFrame(frameElems[[1]])

webElem <- remDr$findElement(using = 'xpath', "//select[@name='txtTargetToMm']")
opts <- webElem$selectTag()

> opts$text
[1] "JANUARY"   "FEBRUARY"  "MARCH"     "APRIL"     "MAY"       "JUNE"      "JULY"      "AUGUST"   
[9] "SEPTEMBER" "OCTOBER"   "NOVEMBER"  "DECEMBER" 
> opts$value
[1] "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10" "11" "12"
> opts$selected
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE

# select the third month (march)
opts$elements[[3]]$clickElement()

# check whether it is selected
opts <- webElem$selectTag()
opts$selected

> opts$selected
[1] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE

rm(rD)
gc()