如何使用RSelenium抓取下拉菜单的指定选项内容

问题原因 #

• 你的XPath混淆了option标签的value属性和标签文本：目标选项EBAY UK的value属性实际为6，不是文本内容EBAY UK，所以@value="EBAY UK"无法匹配到对应元素
• 代码存在语法问题：findElement方法缺少右括号，且定义的变量名为sales.channels，后续调用时错写为sales.channels3

正确实现方案 #

方式1：按option显示文本定位 #

如果要直接匹配下拉菜单显示的文字内容，使用XPath的text()方法匹配即可：

# 编写正确的XPath定位语句
sales.channels <- remote_driver$findElement(using = 'xpath', '//select[@id="source"]/option[text()="EBAY UK"]')
# 点击选中目标选项
sales.channels$clickElement()

如果担心文本前后存在多余空格，可以用normalize-space()处理空格后再匹配：
'//select[@id="source"]/option[normalize-space(text())="EBAY UK"]'

方式2：按option的value属性定位 #

如果确认EBAY UK对应的value固定为6，可以直接匹配value属性：

sales.channels <- remote_driver$findElement(using = 'xpath', '//select[@id="source"]/option[@value="6"]')
sales.channels$clickElement()

批量抓取所有下拉选项内容 #

如果需要先获取所有选项的文本和对应value值，可以用如下代码实现：

# 获取所有option元素
all_options <- remote_driver$findElements(using = 'xpath', '//select[@id="source"]/option')
# 遍历提取每个选项的属性和文本
option_list <- lapply(all_options, function(x){
  list(
    value = x$getAttribute("value")[[1]],
    text = x$getElementText()[[1]]
  )
})
# 输出查看所有选项
print(option_list)

内容的提问来源于stack exchange，提问作者Stefano Maria De Francesco