如何处理rvest网页爬取中character(0)导致的零行tibble问题？

用rvest批量爬取多网站的多类元素时，常会遇到目标HTML元素不存在的情况，此时rvest会返回character(0)。将这类值存入tibble时，不会自动将对应列设为NA，反而会生成零行tibble（原本预期生成单行）。

问题示例 #

library(rvest)
library(tibble)

# 模拟包含目标元素的页面
page_with_target <- read_html("<h1 class='page-title'>Sample Title</h1>")
valid_title <- page_with_target %>% html_element(".page-title") %>% html_text()

# 模拟不含目标元素的页面
page_without_target <- read_html("<p class='page-content'>Just some text</p>")
invalid_title <- page_without_target %>% html_element(".page-title") %>% html_text()

# 正常情况：生成单行tibble
tibble(title = valid_title)

# 异常情况：生成零行tibble，而非带NA的单行
tibble(title = invalid_title)

现有处理方法 #

我目前的解决方式是写一个辅助函数，将character(0)转换为NA：

# 转换空字符向量为NA的辅助函数
safe_extract <- function(x) {
  if (length(x) == 0) NA_character_ else x
}

# 处理后再存入tibble
fixed_title <- safe_extract(invalid_title)
tibble(title = fixed_title)

但这个方法需要对每个提取结果手动调用转换函数，比较繁琐。有没有更简便的方案？比如能直接整合到rvest的提取流程中，无需额外手动处理的方法？

内容的提问来源于stack exchange，提问作者zoowalk