如何使用vapply下载网页？

Question

我可以使用lapply，sapply，mapply来下载网页。

urls <- c(
    "http://stat.ethz.ch/R-manual/R-devel/library/base/html/connections.html",
    "http://en.wikipedia.org/wiki/Xz")
x1=lapply(urls,readLines)
x2=sapply(urls,readLines)
x3=mapply(con=urls,readLines)

如何在此示例中使用vapply？

Answer 1

您必须将readLines包裹在始终返回相同长度向量

的内容中

例如

vapply(urls, function(i)  list(readLines(i)), list(1))

这是有效的，因为虽然readLines将返回可变数量的行，但它是长度为1的list的第一个元素