> 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)


这是 对方网站设置的反爬 机制，还是我循环代码写的有问题？？？