R/cookies.R

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

#' @rdname addCookie
addCookie <- function(remDr, name, value, path = NULL, domain = NULL,
                      secure = FALSE, httpOnly = NULL, expiry = NULL, ...){
  obj <- remDr
  obj$sessionId <- remDr$sessionId(remDr$drvID)

  cookie <- list(name = name, value = value, path = path, domain = domain,
                 secure = secure, httpOnly = httpOnly, expiry = expiry)
  cookie <- cookie[!vapply(cookie, is.null, logical(1))]
  jsonBody <- toJSON(list(cookie = cookie), null = "null",
                     auto_unbox = TRUE)
  pathTemplate <-
    whisker.render("/session/{{sessionId}}/cookie", data = obj)
  pathURL <- remDr[['remServAdd']]
  pathURL[['path']] <- paste0(pathURL[['path']], pathTemplate)
  res <- queryDriver(verb = POST, url = build_url(pathURL),
                     source = "addCookie",
                     drvID = remDr$drvID, json = jsonBody, ...)
  invisible(remDr)
}

#' @rdname deleteAllCookies
deleteAllCookies <- function(remDr, ...){
  obj <- remDr
  obj$sessionId <- remDr$sessionId(remDr$drvID)

  pathTemplate <-
    whisker.render("/session/{{sessionId}}/cookie", data = obj)
  pathURL <- remDr[['remServAdd']]
  pathURL[['path']] <- paste0(pathURL[['path']], pathTemplate)
  res <- queryDriver(verb = DELETE, url = build_url(pathURL),
                     source = "deleteAllCookies",
                     drvID = remDr$drvID, json = NULL, ...)
  invisible(remDr)
}

#' @rdname deleteCookie
deleteCookie <- function(remDr, name = NULL, ...){
  obj <- remDr
  obj$sessionId <- remDr$sessionId(remDr$drvID)
  obj$name <- name
  pathTemplate <-
    whisker.render("/session/{{sessionId}}/cookie/{{name}}", data = obj)
  pathURL <- remDr[['remServAdd']]
  pathURL[['path']] <- paste0(pathURL[['path']], pathTemplate)
  res <- queryDriver(verb = DELETE, url = build_url(pathURL),
                     source = "deleteCookie",
                     drvID = remDr$drvID, json = NULL, ...)
  invisible(remDr)
}

#' @rdname getAllCookies
getAllCookies <- function(remDr, ...){
  obj <- remDr
  obj$sessionId <- remDr$sessionId(remDr$drvID)

  pathTemplate <-
    whisker.render("/session/{{sessionId}}/cookie", data = obj)
  pathURL <- remDr[['remServAdd']]
  pathURL[['path']] <- paste0(pathURL[['path']], pathTemplate)
  res <- queryDriver(verb = GET, url = build_url(pathURL),
                     source = "getAllCookies",
                     drvID = remDr$drvID, json = NULL, ...)
  res$value
}

#' @rdname getNamedCookie
getNamedCookie <- function(remDr, name = NULL, ...){
  obj <- remDr
  obj$sessionId <- remDr$sessionId(remDr$drvID)
  obj$name <- name
  pathTemplate <-
    whisker.render("/session/{{sessionId}}/cookie/{{name}}", data = obj)
  pathURL <- remDr[['remServAdd']]
  pathURL[['path']] <- paste0(pathURL[['path']], pathTemplate)
  res <- queryDriver(verb = GET, url = build_url(pathURL),
                     source = "getNamedCookie",
                     drvID = remDr$drvID, json = NULL, ...)
  res$value
}