Nothing
#' @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[!sapply(cookie, is.null)]
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
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.