提问，如何让一段代码执行几秒后强制停止？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

现在在做基于Rselenium的爬虫练习，试图批量抓取若干网页上的信息，现在发现打开网页这个过程是流程中最耗时的部分：

1. remDr$open()
   
2. remDr$navigate(url)

复制代码

但另一方面网页主体部分加载还是很快的，慢就慢在后面加载广告、相关网页链接之类的步骤。所以现在有个想法，能不能将这段代码设为运行几秒后强制停止？这样的话估计能节省至少90%的时间，不知是否可行？谢谢大家

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：navigate Gate Open Elen 是否可行

这两个函数是你自己写的吗？

jinkelazzz 发表于 2019-10-11 10:53
这两个函数是你自己写的吗？

Rselenium函数

好吧，在stackoverflow上发帖解决了... 使用 R.utils包和try函数联用即可，error不妨碍后续代码继续运行：

1. library(RSelenium)  
   
2. library(rvest)
   
3. library(R.utils)
   
4. 
   
5. remDr <- remoteDriver(remoteServerAddr = "127.1.1.1"
   
6.                       , port = 4444
   
7.                       , browserName = "firefox") # connect to Server
   
8. remDr$open()
   
9. try(withTimeout(remDr$navigate("https://aaaa.org"), timeout=0.5)) # stop navigation after 0.5 sec
   
10. a1 <- read_html(remDr$getPageSource()[[1]][1])
    
11. a2 <- html_nodes(a1, "pre") %>% html_text()

复制代码