我在这里尝试了代码
Scrolling page in RSelenium
但是它不起作用,因为当您向下滚动时,我正在使用的网站将加载更多内容。例如
webElem <- remDr$findElement("css", "body")
webElem$sendKeysToElement(list(key = "end"))
webElem$screenshot(display = TRUE)
这是网站一部分的屏幕截图。
然后,我再次重复该过程。
webElem$sendKeysToElement(list(key = "end"))
webElem$screenshot(display = TRUE)
结果仍然相同。
最佳答案
如果不幸的是,您的代码无法向下滚动,请尝试使用executeScript()
,如下所示:-
remDr$executeScript("window.scrollTo(0,document.body.scrollHeight);")