Я запускаю сценарий, и мне нужно, чтобы он попытался еще несколько секунд собрать данные, но если он все еще не может, мне нужно назначить NA в кадре данных и вернуть мне ссылки, которые не былиРабота.Я использую цикл для создания кадра данных.
LINKS <- LinksBR$LINKS_SP[1:39224]
DataSP <- matrix(nrow = 39244, ncol = 2)
DataSP <- data.frame(DataSP)
for (i in 1:length(LINKS)){
try(
DataSP[i,1] <- read_html(LINKS[i]) %>%
html_node(".blabla > h1") %>%
html_text()
)
try(
Data[i,2] <- read_html(LINKS[i]) %>%
html_node(".blabla") %>%
html_text("span")
)
}
Error in open.connection(x, "rb") :
Timeout was reached: Connection timed out after 10015 milliseconds