Я пытаюсь свернуть все, используя Rselenium
library(RSelenium)
rs <- rsDriver()
mybrowser <- rs[["client"]]
mybrowser$navigate("http://data.un.org/Explorer.aspx")
webElems <- mybrowser$findElements("css selector", "a.ygtvspacer")
while(length(webElems)>0) {
for(webElem in webElems){
webElem$highlightElement(150/1000)
webElem$clickElement()
}
webElems <- mybrowser$findElements("css selector", "a.ygtvspacer")
}
Сообщение Selenium: элемент не взаимодействует (Информация о сеансе: chrome = 71.0.3578.98) (Информация о драйвере: chromedriver = 72.0.3626.7 (efcef9a3ecda02b2132af215116a03852d08b9bc)= Windows NT 10.0.16299 x86_64)
Ошибка: сводка: ElementNotVisible Подробности: не удалось выполнить команду элемента, поскольку элемент не отображается на странице.Дополнительная информация: запустить метод errorDetails