R/downsame.R

In nbarsch/tfwstring:

#' downsame
#'
#' scroll down until test element tests same length as before
#' @param xpath xpath of elem to count to test
#' @export
downsame <- function(xpath){
  #scroll to bottom of page
  remDr <- get("remDr")
  tl1 <- length(gh(xpath=xpath))
  webElem <- remDr$findElement("css", "body")
  webElem$sendKeysToElement(list(key = "end"))
  rs(min=2,max=3)
  #top of page
  webElem <- remDr$findElement("css", "body")
  webElem$sendKeysToElement(list(key = "home"))
  rs(min=2,max=3)
  #scroll to bottom of page
  webElem <- remDr$findElement("css", "body")
  webElem$sendKeysToElement(list(key = "end"))
  rs(min=2,max=3)
  tl2 <- length(gh(xpath=xpath))
  while(tl1!=tl2){
    #scroll to bottom of page
    tl1 <- length(gh(xpath=xpath))
    webElem <- remDr$findElement("css", "body")
    webElem$sendKeysToElement(list(key = "end"))
    rs(min=2,max=3)
    #top of page
    webElem <- remDr$findElement("css", "body")
    webElem$sendKeysToElement(list(key = "home"))
    rs(min=2,max=3)
    #scroll to bottom of page
    webElem <- remDr$findElement("css", "body")
    webElem$sendKeysToElement(list(key = "end"))
    rs(min=2,max=3)
    tl2 <- length(gh(xpath=xpath))
  }
  webElem <- remDr$findElement("css", "body")
  webElem$sendKeysToElement(list(key = "home"))
  Sys.sleep(.3)
}