选择带有RSelenium的文本框

起始硒

library(RSelenium)
RSelenium::startServer()
pJS <- phantom()
Sys.sleep(5) # give the binary a moment
remDr <- remoteDriver(browserName = 'phantomjs')
remDr$open()

现在，当我尝试在文本框中查找元素时

  depthElem <- remDr$findElements("name","depth_textbox")
  tableElem <- remDr$findElements("name","table_textbox")
  crownElem <- remDr$findElements("name","crown_textbox")
  pavilionElem <- remDr$findElements("name","pavilion_textbox")

---

如何选择这些文本框？为什么不能通过搜索名称来选择它们？

当不存在元素时，findElements方法返回一个空列表。该页面在iframe中包含所需的内容。您需要先切换到iframe，然后才能搜索元素：

remDr$navigate("http://ideal-scope.com/online-holloway-cut-adviser/")
# get iframes
webElems <- remDr$findElements("css", "iframe")
# there is only one
remDr$switchToFrame(webElems[[1]])

depthElem <- remDr$findElement("name","depth_textbox")
# > depthElem$getElementAttribute("name")
# [[1]]
# [1] "depth_textbox"
remDr$findElement("name","table_textbox")
crownElem <- remDr$findElement("name","crown_textbox")
pavilionElem <- remDr$findElement("name","pavilion_textbox")

remDr$导航（“http://ideal-scope.com/online-holloway-cut-adviser/")
#获取iframes
webElems当不存在元素时，findElements方法返回一个空列表。该页面在iframe中包含所需的内容。在搜索元素之前，需要先切换到iframe。
Error:   Summary: NoSuchElement
 Detail: An element could not be located on the page using the given search parameters.

remDr$navigate("http://ideal-scope.com/online-holloway-cut-adviser/")
# get iframes
webElems <- remDr$findElements("css", "iframe")
# there is only one
remDr$switchToFrame(webElems[[1]])

depthElem <- remDr$findElement("name","depth_textbox")
# > depthElem$getElementAttribute("name")
# [[1]]
# [1] "depth_textbox"
remDr$findElement("name","table_textbox")
crownElem <- remDr$findElement("name","crown_textbox")
pavilionElem <- remDr$findElement("name","pavilion_textbox")