无法使用 RSelenium 从 UL 中选择项目

编程问答 2022-05-17

问题描述

    localDownload <- paste0(getwd(),"/arquivos")
localDownload <- gsub("/","\\\\\\",localDownload)
eCaps <- list(
  chromeOptions = 
    list(prefs = list("profile.default_content_settings.popups" = 0L,"download.prompt_for_download" = FALSE,"directory_upgrade" = TRUE,"download.default_directory" = localDownload
    )
    )
)

driver <- rsDriver(extraCapabilities = eCaps,browser = c("chrome"),chromever = "89.0.4389.23")
url <- "https://biblioteca.aneel.gov.br/index.html"
driver$client$navigate(url = url)
webElem <- driver$client$findElements("id","mainFrame")
driver$client$switchToFrame(webElem[[1]])
xpath <- "/html/body/div[1]/form/div/table/tbody/tr[4]/td[1]/table/tbody/tr/td[3]/a"
opcao <- driver$client$findElement(using = "xpath",value = xpath)
opcao$clickElement()
xpath <- "/html/body/div[1]/div[3]/table/tbody/tr[2]/td[1]/div[2]/a"
opcao <- driver$client$findElement(using = "xpath",value = xpath)
opcao$clickElement()
xpath <- "/html/body/div[1]/div[3]/table/tbody/tr[2]/td[1]/table/tbody/tr[2]/td[2]/button"
opcao <- driver$client$findElement(using = "xpath",value = xpath)
opcao$clickElement()
xpath<- "/html/body/div[14]/ul/li[15]/label/input"
opcao2 <- opcao$findElement(using = "xpath",value = xpath)
opcao2$clickElement()

这是我的代码，我试图从 UL 中选择此选项，但无法通过单击元素然后选择正确的

  • 网站： https://biblioteca.aneel.gov.br/index.html

    section that im trying to select

    • 解决方法

    暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

    如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

    小编邮箱:dio#foxmail.com (将#修改为@）

    rrrseleniumseleniumselenium