Description Usage Arguments Details Value See Also Examples
findElementFromElement
Search for an element on the page, starting from the node defined by the parent webElement. The located element will be returned as an object of wElement class.
1 2 3 | findElementFromElement(webElem, using = c("xpath", "css selector", "id",
"name", "tag name", "class name", "link text", "partial link text"), value,
...)
|
webElem |
An object of class "wElement". A web Element object see |
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 |
Details of possible locator schemes
Returns an element whose class name contains the search value; compound class names are not permitted.
Returns an element matching a CSS selector.
Returns an element whose ID attribute matches the search value.
Returns an element whose NAME attribute matches the search value.
Returns an anchor element whose visible text matches the search value.
Returns an anchor element whose visible text partially matches the search value.
Returns an element whose tag name matches the search value.
Returns an element matching an XPath expression.
invisible(wbElement(res$value, webElem$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.
Other elementRetrieval functions: findElementsFromElement
,
findElements
, findElement
,
getActiveElement
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | ## 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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.