R/scroll_into_view.R

In Ricardo281/carconfig: R Code for Car Configurator Scraping Project

#' Scroll a webelemt into the view
#'
#' This function allows you to scroll webelements into the view
#' @param rd A Remote Driver Connection to the browser in docker container
#' @param webel A Selenium Webelement
#' @param simple boolean for simpler javascript scroll function. Defaults to TRUE.
#' @export

scroll_into_view <- function(rd, webel, simple=TRUE){
  if(simple == TRUE){
    script <- "arguments[0].scrollIntoView(true);"
    rd$executeScript(script, args = list(webel))
  } else {
    script <- "var viewPortHeight = Math.max(document.documentElement.clientHeight, window.innerHeight || 0);var elementTop = arguments[0].getBoundingClientRect().top;window.scrollBy(0, elementTop-(viewPortHeight/2));"
    rd$executeScript(script, args = list(webel))
  }
}