R/utils.R

In johndharrison/seleniumPipes: R Client Implementing the W3C WebDriver Specification

#' @export
print.rDriver <- function(x, ...){
  cat("Remote Ip Address:", build_url(x$remServAdd), "\n")
  cat("Remote sessionId:", x$sessionId(x$drvID), "\n")
}

#' @export
print.wElement <- function(x, ...){
  cat("ElementId:", x$elementId[["ELEMENT"]], "\n")
  cat("Remote Driver:", "\n")
  print(x$remDr)
}

matchSelKeys <- function(x){
  if(any(names(x) =='key')){
    x[names(x) =='key'] <-
      selKeys[match(x[names(x) == 'key'],names(selKeys))]
  }
  unname(x)
}

#' @name selKeys
#' @title Selenium key mappings
#' @description This data set contains a list of selenium key mappings.
#'    The key mappings are outlined at \cr
#'    https://github.com/SeleniumHQ/selenium/wiki/JsonWireProtocol#sessionsessionidelementidvalue.
#'    selKeys is used when a sendKeys variable is needed. sendKeys is
#'    defined as a list. If an entry is needed from selKeys it is denoted
#'    by key.
#' @docType data
#' @usage selKeys
#' @export selKeys
#' @format A named list. The names are the descriptions of the keys. The
#'    values are the "UTF-8" character representations.
#' @source http://code.google.com/p/selenium/wiki/JsonWireProtocol#/session/:sessionId/element/:id/value
#' @author John Harrison, 2012-10-05

selKeys <- structure(
  list(null = "\uE000", cancel = "\uE001", help = "\uE002",
       backspace = "\uE003", tab = "\uE004", clear = "\uE005",
       return = "\uE006", enter = "\uE007", shift = "\uE008",
       control = "\uE009", alt = "\uE00A", pause = "\uE00B",
       escape = "\uE00C", space = "\uE00D", page_up = "\uE00E",
       page_down = "\uE00F", end = "\uE010", home = "\uE011",
       left_arrow = "\uE012", up_arrow = "\uE013", right_arrow = "\uE014",
       down_arrow = "\uE015", insert = "\uE016", delete = "\uE017",
       semicolon = "\uE018", equals = "\uE019", numpad_0 = "\uE01A",
       numpad_1 = "\uE01B", numpad_2 = "\uE01C", numpad_3 = "\uE01D",
       numpad_4 = "\uE01E", numpad_5 = "\uE01F", numpad_6 = "\uE020",
       numpad_7 = "\uE021", numpad_8 = "\uE022", numpad_9 = "\uE023",
       multiply = "\uE024", add = "\uE025", separator = "\uE026",
       subtract = "\uE027", decimal = "\uE028", divide = "\uE029",
       f1 = "\uE031", f2 = "\uE032", f3 = "\uE033", f4 = "\uE034",
       f5 = "\uE035", f6 = "\uE036", f7 = "\uE037", f8 = "\uE038",
       f9 = "\uE039", f10 = "\uE03A", f11 = "\uE03B", f12 = "\uE03C",
       command_meta = "\uE03D"),
  .Names = c("null", "cancel", "help", "backspace", "tab", "clear",
             "return", "enter", "shift", "control", "alt", "pause",
             "escape", "space", "page_up", "page_down", "end", "home",
             "left_arrow", "up_arrow", "right_arrow", "down_arrow",
             "insert", "delete", "semicolon", "equals", "numpad_0",
             "numpad_1", "numpad_2", "numpad_3", "numpad_4", "numpad_5",
             "numpad_6", "numpad_7", "numpad_8", "numpad_9", "multiply",
             "add", "separator", "subtract", "decimal", "divide", "f1",
             "f2", "f3", "f4", "f5", "f6", "f7", "f8", "f9", "f10", "f11",
             "f12", "command_meta")
)

testWebElement <- function(x, remDr){
  replaceWE <- function(x, remDr){
    if(identical(names(x), "ELEMENT")){wbElement(x, remDr)}else{x}
  }
  if(is.null(x)||identical(length(x), 0L)) return(x)
  listTest <- sum(vapply(x, inherits, logical(1), "list")) > 0
  if(listTest){
    lapply(x, testWebElement, remDr = remDr)
  }else{
    replaceWE(x, remDr = remDr)
  }
}

#' Pipe operator
#'
#' See \code{\link[magrittr]{\%>\%}} for more details.
#'
#' @name %>%
#' @rdname pipe
#' @keywords internal
#' @export
#' @importFrom magrittr %>%
#' @usage lhs \%>\% rhs
NULL