启动RSelenium
library(RSelenium)
RSelenium::startServer()
pJS <- phantom()
Sys.sleep(5) # give the binary a moment
remDr <- remoteDriver(browserName = 'phantomjs')
remDr$open()
访问该网站并稍等一下
remDr$navigate("http://ideal-scope.com/online-holloway-cut-adviser/")
Sys.sleep(5)
现在当我尝试在文本框中查找元素时
depthElem <- remDr$findElements("name","depth_textbox")
tableElem <- remDr$findElements("name","table_textbox")
crownElem <- remDr$findElements("name","crown_textbox")
pavilionElem <- remDr$findElements("name","pavilion_textbox")
...只是给了我一堆 list()
如果我执行findElement
而不是findElements
,我会得到
Error: Summary: NoSuchElement
Detail: An element could not be located on the page using the given search parameters.
如何选择这些文本框?为什么我无法通过搜索名称来选择它们?
最佳答案
当不存在任何元素时,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")
关于r - 使用 RSelenium 选择文本框,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/41033684/