使用 rvest 使用标题名称抓取特定的 html 表

Question

试图从特定的建筑许可信息表中抓取数据。以下代码适用于我正在循环的大多数建筑许可证：

library(rvest)

permit_numbers <- c("BP125602", "BP125473", "BP125472")

URL <- paste("https://www.nanaimo.ca/WhatsBuilding/Folder", permit_numbers, sep = "/")

task_table <- lapply(URL, function(x) {
    x %>%
    read_html() %>%
    html_table() %>%
    .[[3]] %>%
    .[["Task"]]
})

但有时任务信息不在页面的第三个表中。例如，https://www.nanaimo.ca/WhatsBuilding/Folder/BP125721 任务信息在第二个表中。

如何从“任务”列标题中抓取信息，而不管它在页面上的什么位置？

Answer 1

这应该可行：

library(rvest)
URL <- "https://www.nanaimo.ca/WhatsBuilding/Folder/BP125602"

tables <- URL %>%
  read_html() %>%
  html_table()


task_table <- lapply(tables, function(x) if(names(x) == "Task"){x})

task_table[sapply(task_table, is.null)] <- NULL
task_table <- task_table[[1]][["Task"]]

这就是你要找的吗？