seleniumPipes (version 0.3.7)

getActiveElement: Get the element on the page that currently has focus.

Description

getActiveElement Get the element on the page that currently has focus. The located element will be returned as a WebcElement object.

Usage

getActiveElement(remDr, ...)

Arguments

remDr

An object of class "rDriver". A remote driver object see remoteDr.

...

Additonal function arguments - Currently passes the retry argument.

Value

invisible(wbElement(res$value, remDr)): An object of class "wElement" is invisibly returned. A webElement object see wbElement. This allows for chaining from this function to other functions that take such an object as an argument. See examples for further details.

See Also

Other elementRetrieval functions: findElementFromElement, findElementsFromElement, findElements, findElement

Examples

## Not run: 
#   remDr <- remoteDr()
#   remDr %>% go("http://www.google.com/ncr")
# 
#   # find the search form query box and search for "R project"
#   webElem <- remDr %>% findElement("name", "q") %>%
#     elementSendKeys("R project", key = "enter")
#   # click the first link hopefully should be www.r-project.org
#   remDr %>% findElement("css", "h3.r a") %>% elementClick
# 
#   # get the navigation div
#   navElem <- remDr %>% findElement("css", "div[role='navigation']")
# 
#   # find all the links in this div
#   navLinks <- navElem %>% findElementsFromElement("css", "a")
# 
#   # check the links
#   nLinks <- sapply(navLinks, function(x) x %>% getElementText)
# 
#   # compare with all links
#   allLinks <- remDr %>% findElements("css", "a")
#   aLinks <- sapply(allLinks, function(x) x %>% getElementText)
# 
#   # show the effect of searching for elements from element
#   aLinks %in% nLinks
# 
#   remDr %>% deleteSession
# ## End(Not run)

Run the code above in your browser using DataCamp Workspace