RSelenium并显示每一行

RSelenium and display every rows

本文关键字：一行 显示 RSelenium      更新时间：2023-09-26

我正在尝试抓取这个网站:http://weirwood-net.com/generalinfo.
有一个1874行的表。我试着把它刮掉。我找到了，但只有前10行。它来自10中的lengthMenu。其他可能是25 50 100，都是。我想把所有的数据都删掉。

我在Rselenium:

中使用了这段代码
<code>library(RSelenium)
appURL <- "http://weirwood-net.com/generalinfo"
pJS <- phantom()
Sys.sleep(5)
remDr <- remoteDriver()
remDr$open()
remDr$navigate(appURL)
webElem <- remDr$findElement("css selector", "#tablepress-8")
dd<-remDr$getPageSource()[[1]]
doc <- htmlParse(dd)
readHTMLTable(doc)
remDr$close()
pJS$stop()</code>

我知道问题出在那部分代码html:

<code>
jQuery(document).ready(function($){
$('#tablepress-8').dataTable({"order":[],"orderClasses":false,"stripeClasses":['even','odd'],"pagingType":"simple","columnDefs": [ { "type": "formatted-num", "targets": [ 7, 8 ] } ],"lengthMenu":[[10,25,50,100,-1],[10,25,50,100,"All"]]}).columnFilter();
});</code>

然后，你能帮我在Rselenium中构建一个代码，以便选择选项"All"

您可以使用findElement方法和适当的选择器来选择您想要的选项。然后，您可以使用clickElement方法单击它:

remDr$findElement("xpath", "//option[text() = 'All']")$clickElement()
相关文章：