如何使用 RSelenium select 复选框？

Question

我正在尝试使用 RSelenium select 复选框。网站是 here.

据我所知，有 2 个解决方案。

如果我选择单击复选框，则 class 将从 'w-clearfix notifications-row' 更改为 'w-clearfix notifications-row selected'。
如果我选择点击数字然后我可以得到 class is vcell.

我的目标是 select 所有复选框并使用 clickElement() 函数。

剩下的代码是：

driver <- rsDriver(browser = "chrome", port = 80L, chromever = "83.0.4103.39")
rmDr <- driver[["client"]]
rmDr$navigate("https://www.kap.org.tr/en/bildirim-sorgu")

showMe <- rmDr$findElement(using = 'xpath', "//*/a[@class = 'filter-button4 first']")
showMe$clickElement()

selectAll <- rmDr$findElement(using = 'xpath', "//*/div[@class = '???']")
selectAll$clickElement()

提前致谢。

Answer 1

我们可以使用循环来 select 所有复选框：

library(RSelenium)
driver <- rsDriver(browser = "chrome", port = 80L, chromever = "83.0.4103.39")
rmDr <- driver[["client"]]
rmDr$navigate("https://www.kap.org.tr/en/bildirim-sorgu")

showMe <- rmDr$findElement(using = 'xpath', "//*/a[@class = 'filter-button4 first']")
showMe$clickElement()

for(i in 4:43) {
  selectAll <- rmDr$findElement(using = 'css', paste("#tab1 > div > div:nth-child(2) > div.w-container.visible > div > div:nth-child(",i,") > a", sep = ""))
  selectAll$clickElement()
  Sys.sleep(1)
}

如何使用 RSelenium select 复选框？

How to select checkboxes using RSelenium?

r

rselenium