使用R与RSelenium爬取网页：下拉菜单选择难题

核心问题分析 #

你已经成功切换到页面的iframe，但对selectTag()返回结果的操作方式有误——它返回的是包含所有选项的列表，而非可直接通过$text$County调用的结构。以下是具体实现步骤：

完整可运行代码 #

remDr$open()
remDr$navigate("https://public.education.mn.gov/MDEAnalytics/DataTopic.jsp?TOPICID=11") 

# 切换到内容所在的iframe（页面核心数据在第一个iframe内）
frames <- remDr$findElements('css', "iframe")
remDr$switchToFrame(frames[[1]])

# 1. 选择级别为County
# 定位级别下拉框
level_select <- remDr$findElement("id", "cmbCOLUMN1")
# 获取所有选项列表
level_options <- level_select$selectTag()$options
# 遍历找到County选项并点击
for(opt in level_options) {
  if(opt$text == "County") {
    opt$element$clickElement()
    break
  }
}

# 2. 选择年份为2022
# 定位年份下拉框（若ID不是cmbYEAR，可替换为实际ID或用xpath："//select[contains(@id, 'YEAR')]"）
year_select <- remDr$findElement("id", "cmbYEAR")
year_options <- year_select$selectTag()$options
# 遍历找到2022选项并点击
for(opt in year_options) {
  if(opt$text == "2022") {
    opt$element$clickElement()
    break
  }
}

# 可选：点击查询按钮（根据页面实际按钮ID调整）
# submit_btn <- remDr$findElement("id", "btnSubmit")
# submit_btn$clickElement()

简化写法（直接用键盘输入选择） #

如果下拉框支持键盘输入匹配，可替代遍历逻辑，代码更简洁：

# 选择County
level_select$sendKeysToElement(list("County"))

# 选择2022
year_select$sendKeysToElement(list("2022"))

额外注意事项 #

• 等待元素加载：若页面加载缓慢，可在查找元素前添加等待，避免报错：

  remDr$waitForElement("id", "cmbCOLUMN1", timeout = 10)
  

• iframe定位优化：若iframe有明确的ID/name，直接通过ID定位更可靠，比如：

  target_iframe <- remDr$findElement("id", "iframe_id") # 替换为实际iframe的ID
  remDr$switchToFrame(target_iframe)
  

内容的提问来源于stack exchange，提问作者ryanasaurus