for() 循环的返回值，就像它是 R 中的函数一样

Question

我在 R 脚本中有这个 for 循环：

url <- "https://example.com"
page <- html_session(url, config(ssl_verifypeer = FALSE))

links <- page %>% 
  html_nodes("td") %>% 
  html_nodes("tr") %>%
  html_nodes("a") %>% 
  html_attr("href")

base_names <- page %>%
  html_nodes("td") %>% 
  html_nodes("tr") %>%
  html_nodes("a") %>% 
  html_attr("href") %>%
  basename()

for(i in 1:length(links)) {

  site <- html_session(URLencode(
    paste0("https://example.com", links[i])),
    config(ssl_verifypeer = FALSE))

  writeBin(site$response$content, base_names[i])
} 

这会循环链接，并将文本文件下载到我的工作目录。我想知道是否可以将return 放在某个地方，以便它返回文档。

原因是，我正在 NiFi 中执行我的脚本（使用 ExecuteProcess），它并没有将我的抓取文件发送到下线。相反，它只显示了我的 R 脚本的头部。我假设您会将for 循环包装在fun <- function(x) {} 中，但我不确定如何将x 集成到已经工作的刮板中。

我需要它来顺流返回文档，而不仅仅是这个：

处理器配置：

即使你不熟悉 NiFi，它也会对 R 部分有很大帮助！谢谢

Answer 1

如果您的意图是（1）保存输出（使用writeBin）和（2）返回值（使用list），那么试试这个：

out <- Map(function(ln, bn) {
  site <- html_session(URLencode(
    paste0("https://example.com", ln)),
    config(ssl_verifypeer = FALSE))
  writeBin(site$response$content, bn)
  site$response$content
}, links, base_names)

Map 的使用将各个元素“压缩”在一起。对于基本情况，以下是相同的：

Map(myfunc, list1)
lapply(list1, myfunc)

但是如果你想使用多个列表中的相同索引元素，你可以做一个

lapply(seq_len(length(list1)), function(i) myfunc(list1[i], list2[i], list3[i]))
Map(myfunc, list1, list2, list3)

展开Map 会有效地导致：

myfunc(list1[1], list2[1], list3[1])
myfunc(list1[2], list2[2], list3[2])
# ...

lapply 和Map 之间的最大区别在于lapply 只能接受一个向量，而Map 接受一个或更多（实际上是无限的），将它们压缩在一起。所有使用的列表的长度必须相同或长度为 1（已回收），所以这样做是合法的

Map(myfunc, list1, list2, "constant string")

注意：Map-versus-mapply 类似于lapply-vs-sapply。对于两者，第一个 always 返回一个 list 对象，而第二个将返回一个 vector IFF 每个返回值的长度/尺寸相同，否则它也将返回一个 list .