Nothing
#' @rdname elementClear
elementClear <- function(webElem, ...){
obj <- webElem
obj$sessionId <- webElem$sessionId(webElem$remDr$drvID)
obj$elementId <- webElem$elementId$ELEMENT
jsonBody <- NULL
pathTemplate <- whisker.render("/session/{{sessionId}}/element/{{elementId}}/clear", data = obj)
pathURL <- webElem[['remDr']][['remServAdd']]
pathURL[['path']] <- paste0(pathURL[['path']], pathTemplate)
res <- queryDriver(verb = POST, url = build_url(pathURL), source = "elementClear", drvID = webElem$remDr$drvID, json = jsonBody,...)
invisible(webElem)
}
#' @rdname elementClick
elementClick <- function(webElem, ...){
obj <- webElem
obj$sessionId <- webElem$sessionId(webElem$remDr$drvID)
obj$elementId <- webElem$elementId$ELEMENT
jsonBody <- NULL
pathTemplate <- whisker.render("/session/{{sessionId}}/element/{{elementId}}/click", data = obj)
pathURL <- webElem[['remDr']][['remServAdd']]
pathURL[['path']] <- paste0(pathURL[['path']], pathTemplate)
res <- queryDriver(verb = POST, url = build_url(pathURL), source = "elementClick", drvID = webElem$remDr$drvID, json = jsonBody,...)
invisible(webElem)
}
#' @rdname elementSendKeys
elementSendKeys <- function(webElem, ...){
obj <- webElem
obj$sessionId <- webElem$sessionId(webElem$remDr$drvID)
obj$elementId <- webElem$elementId$ELEMENT
sendKeys <- list(...)
jsonBody <- toJSON(list(value = matchSelKeys(sendKeys)), auto_unbox = TRUE)
pathTemplate <- whisker.render("/session/{{sessionId}}/element/{{elementId}}/value", data = obj)
pathURL <- webElem[['remDr']][['remServAdd']]
pathURL[['path']] <- paste0(pathURL[['path']], pathTemplate)
res <- queryDriver(verb = POST, url = build_url(pathURL), source = "elementSendKeys", drvID = webElem$remDr$drvID, json = jsonBody,...)
invisible(webElem)
}
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.