seleniumPipes (version 0.3.7)

findElementsFromElement: Search for multiple elements on the page, starting from another element.

Description

findElementsFromElement Search for multiple elements on the page, starting from the node defined by the parent webElement. The located elements will be returned as an list of objects of class wElement.

Usage

findElementsFromElement(webElem, using = c("xpath", "css selector", "id", "name", "tag name", "class name", "link text", "partial link text"), value, ...)

Arguments

webElem

An object of class "wElement". A web Element object see wbElement.

using

Locator scheme to use to search the element, available schemes: "class name", "css selector", "id", "name", "link text", "partial link text", "tag name", "xpath" . Defaults to 'xpath'. Partial string matching is accepted.

value

The search target. See examples.

...

Additonal function arguments - Currently passes the retry argument.

Value

invisible(lapply(res$value, wbElement, remDr = webElem$remDr)): A list of objects 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.

Details

Details of possible locator schemes

See Also

Other elementRetrieval functions: findElementFromElement, findElements, findElement, getActiveElement

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)