R 使用“lappy”获得多个下载/结果

我有以下资料：

library(edgar)
setwd() 
years <- c(2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018)
masterIndex <- lapply(years, getMasterIndex)

NVDA  <- getFilings(2018, 0001045810, '10-K')

它创建两个文件来下载数据，并下载一个索引

我也可以使用以下方法：

library(edgar)
setwd() 
years <- c(2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018)
masterIndex <- lapply(years, getMasterIndex)

NVDA  <- getFilings(2018, 0001045810, '10-K')

这将获得2018年NVDA的结果，编号0001045810对应于NVDA公司

我还可以写：

msft <- getFilings(2018, 000789019, '10-K')

这将获得微软的数据

我对这些公司有一个矢量，例如：

companies <- c("789019", "1045810")

所以我想对这个向量进行重叠，得到其中所有的公司

我还想将相同的lappy应用于不同的年份，即上述年份向量中的所有年份

我该怎么做呢？该方案还要求：

要下载的文件总数=1。是否要下载是/否？ 对

我必须写“是”-是否有办法为代码中的所有内容选择“是”

我的问题是如何使用lapply获得每年NVDA、Microsoft等公司的列表

---

i、 e.一个列表用于2018年，另一个列表用于2017年，等等。

我们可以创建一个函数来获取数据并在此处使用

然后在get_数据中调用我的_GetFillings

---

谢谢你的建议！虽然我仍然想浏览一些公司，但建议的链接会有所帮助。谢谢！，我认为这是工作，但我必须键入是为每个文件下载。设置optionsneeds.promptUser=FALSE似乎不起作用。@user8959427更新了答案，看看它现在是否起作用。运行下面的suppress实际上在我这边起作用，所以我不确定可能出了什么问题。有一件事可能是我看到你在不同的地方使用了Suppress和Suppress。这仅仅是粘贴时的一个输入错误，还是您在脚本中也使用了它？您可以更正它，然后重新运行。

get_data <- function(x, y) my_getFilings(x, y, '10-K')

outer(years, companies, Vectorize(get_data))