如何向下滚动页面直到完全加载？

Question

我想向下滚动，直到页面充满新记录：

library(RSelenium)
rD <- RSelenium::rsDriver(browser = "firefox", check = FALSE)
remDr <- rD[["client"]]

remDr$navigate("https://investmentpolicy.unctad.org/international-investment-agreements")

remDr$findElement("link text", "Advanced Search")$clickElement()
remDr$findElement("id", "search-button")$clickElement()