当我第一次运行下面的代码时,一切正常。但是当我在命令中更改某些内容时html_file %>%...
,例如 commenting tolower()
,我收到以下错误:
Error: target title failed.
diagnose(title)error$message:
external pointer is not valid
diagnose(title)error$calls:
1. └─html_file %>% html_nodes("h2") %>% html_text()
代码:
library(rvest)
library(drake)
some_string <- '
<div class="main">
<h2>A</h2>
<div class="route">X</div>
</div>
'
html_file <- read_html(some_string)
title <- html_file %>%
html_nodes("h2") %>%
html_text()
plan <- drake_plan(
html_file = read_html(some_string),
title = html_file %>%
html_nodes("h2") %>%
html_text() %>%
tolower()
)
make(plan)
我找到了两种可能的解决方案,但我对它们并不感兴趣。
1. 将两个步骤合二为一drake_plan
。
2.按照这里的建议使用xml2::write_html()
and 。
有没有更好的方法来解决它?PS 问题已在此处、Rstudio 论坛和github上讨论过。xml2::read_html()