Когда я впервые запускаю код ниже, все в порядке. Но когда я что-то изменяю в команде html_file %>%...
, например, комментируя 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)
Я нашел два возможных решения, но Я не энтузиаст c о них.
1. Соедините оба шага в drake_plan
в один.
2. Используйте xml2::write_html()
и xml2::read_html()
, как предложено здесь .
Есть ли лучший способ решить это? PS Вопрос уже обсуждался здесь , Rstudio forum и github .