RSelenium：从下拉列表中选择选项

Question

我使用 RSelenium 填写网络表单。要从下拉列表中选择一个选项，我使用以下命令：

xpathoption <- paste0("//select[@id = '",samplepatient[p,'name'],"']/option[",samplepatient[p,'value'],"]")

optionelem <- remDrv$findElement(using = "xpath", xpathoption)
selectelem <- remDrv$findElement(using = "xpath"
                   , paste0("//select[@id = '",samplepatient[p,'name'],"']"))
optionelem$clickElement()
selectelem$screenshot(display = T)

我使用以下方法检查是否选择了正确的选项：

remDrv$findElement(using = "xpath", paste0("//select[@id = '",samplepatient[p,'name'],"']"))$getElementAttribute("value")[[1]]

我遇到的问题是当clickElement() 命令运行两次时，最后一个命令的结果发生了变化。我还用screenshot() 检查了结果。它还表明，当使用两次clickElement() 命令时，切换到了不同的选项。

是否有其他方法可以从下拉列表中选择选项，而不是创建此行为？

我在 ubuntu 上使用 docker 和 firefox 3.0.1。

表格来自我想使用的计算器。要打开表单本身，您需要先检查免责声明，如下所示：

remDrv$navigate('http://riskcalculator.facs.org/RiskCalculator/')

remDrv$findElement(using = "xpath", "//input[@id = 'chkDisclaimer']")$clickElement()
Sys.sleep(1) 
remDrv$findElement(using = "xpath", "//input[@id = 'btnContinue']")$clickElement()
Sys.sleep(1)

免责声明后的可重现示例是：

#select age group
optionelem <- remDrv$findElement(using = "xpath", "//select[@id = 'AgeGroup']/option[3]")
selectelem <- remDrv$findElement(using = "xpath", "//select[@id = 'AgeGroup']")
#first attempt
optionelem$clickElement()
selectelem$getElementAttribute("value")
# result = 3
#second attempt
optionelem$clickElement()
selectelem$getElementAttribute("value")
# result = 1

Answer 1

正如其中一个 cmets 所述，问题与 RSelenium 无关，而与所使用的 docker 有关。我现在使用 chrome docker (standalone-chrome)，在下拉菜单中选择一个选项时没有同样的问题。

Answer 2

使用clickElement 选择选项时我没有遇到任何问题 例如：

remDrv$navigate('http://riskcalculator.facs.org/RiskCalculator/')
remDrv$findElement("id", "chkDisclaimer")$clickElement()
Sys.sleep(1) 
remDrv$findElement("id", "btnContinue")$clickElement()
Sys.sleep(1)
#select age group
ageElems <- remDrv$findElements("css", "#AgeGroup option")
ageElems[[3]]$clickElement()
#select Diabetes
diaElems <- remDrv$findElements("css", "#Diabetes option")
diaElems[[2]]$clickElement()
# Select Gender
genderElems <- remDrv$findElements("css", "#Gender option")
genderElems[[1]]$clickElement()

在 Docker 中运行时，您可以使用“调试”映像和 VNC 查看器来查看浏览器中发生的确切情况。