Как установить флажки с помощью RSelenium?

Question

Я пытаюсь использовать RSelenium для установки флажков. Веб-сайт здесь .

Как я вижу, есть 2 решения.

• Если я выберу флажки, тогда класс изменится как от 'w-clearfix notifications-row' до 'w-clearfix notifications-row selected'.

• Если я выберу цифры, я могу получить класс vcell.

Моя цель - установить все флажки и использовать функцию 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

Мы можем использовать al oop, чтобы установить все флажки:

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)
}