> hospital_df <- data.frame()
> for (m in 1:length(hospital_url)){
+ fun2(url)
+ hospital_df <- rbind(hospital_df,fun2(url))
+ }
Hide Traceback
Rerun with Debug
Error in open.connection(x, "rb") : HTTP error 404.
10.
open.connection(x, "rb")
9.
open(x, "rb")
8.
read_xml.connection(con, encoding = encoding, ..., as_html = as_html,
base_url = x, options = options)
7.
read_xml.character(x, encoding = encoding, ..., as_html = TRUE,
options = options)
6.
read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
5.
withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
4.
suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE,
options = options))
3.
read_html.default(str_c(url, "/tao.html"))
2.
read_html(str_c(url, "/tao.html"))
1.
fun2(url)
这是 对方网站设置的反爬 机制,还是我循环代码写的有问题???


雷达卡




京公网安备 11010802022788号







