Я бы пропустил URL, которому нужно больше 10 секунд, чтобы попасть на его сайт с помощью функции R "url.exists"
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))
}