R多个函数变为lapply

Question

我有一个字符向量中的网址列表，我想暂停其间的过程 查询，因为如果不是x查询被拒绝。

urls=c('url1','url2','url3')

这是我想做的事

htmlpages=lapply(urls,function(x) readLines(x) Sys.sleep(0.3))

Answer 1

正如贾斯汀所说，格式化是关键。

htmlpages = lapply(
  urls,
  function(x) 
  {
    y <- readLines(x)
    Sys.sleep(0.3)
    y
  }
)