I would like to scroll down until the page is full loaded with new records:
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()