如何向 HTML table 添加新行

Question

我正在为一个 Uni 项目抓取历史赛狗结果的数据。我如何使用来自不同 table 的元素将列添加到 table？具体来说，它之前的 table 由第 3 列和第 4 列组成所以添加该信息以在下面的 table 上创建第 13 和第 14 列，并用该信息填充每一行。 [

这是我的代码。

library(xml2) 
library(rvest) 
web<- read_html('https://www.thegreyhoundrecorder.com.au/results/bendigo/61001')
tables<- html_nodes(web, 'table') 
tab1<- html_table(tables, fill = TRUE)

Answer 1

我们可以先删除1行2列的列表元素。

我们使用 Filter 来做到这一点。

remain_tab <- Filter(function(x) !(nrow(x) == 1 & ncol(x) == 2), tab1)
#Probably it is simpler to just remove 1st 12 elements if you know 
#they are the problem and don't want to include in the final dataset.
#remain_tab <- tab1[-c(1:12)]

然后使用 Map 我们更改备用数据。

remain_tab[c(FALSE, TRUE)] <- Map(function(x, y) 
                       {y[paste0('X', c(13, 14))] <- x[c(3, 4)];y}, 
                       remain_tab[c(TRUE, FALSE)], remain_tab[c(FALSE, TRUE)])

如何向 HTML table 添加新行

How to add a new row to a HTML table

r

rvest

xml2