是否有R函数来验证URL

Question

我会跳过通过“ url.exists” R函数访问其网站需要10秒钟以上的网址

for(i in 1:length(listaSiti)){
  url<-as.character(listaSiti[i])
  exi<-url.exists(url)
  print(paste(listaSiti[i], i, sep=" "))
  df_exist<-rbind(df_exist,data.frame(url=url,exist=exi))
}