对现有功能使用Apply功能

Question

我正在使用“ edgarWebR”包从USSEC EDGAR网站获取数据。 软件包中有一个名为“ company_filings”的函数，该函数具有多个参数，我想使用其中四个参数，它应该像这样-

company_filings (comp, type = c('10-K','10-Q'), before = 20181231, count = 40)

其中comp是定义如下的向量-

comp <- c ("AAPL", "GOOG", "INTC")

但company_filings函数一次只能在comp向量中接受一个元素-例如，

company_filings ("AAPL", type = c('10-K','10-Q'), before = 20181231, count = 40)

实际上，我使用以下代码获取comp向量中所有元素的结果-

filing <- Reduce(rbind, lapply(comp, company_filings))

但它不起作用。 在这方面有人可以帮助我吗？

我感谢您的帮助。

Answer 1

要使用apply系列中的函数，所讨论的函数应为单个变量。 您可以从多个变量的函数创建一个变量的匿名函数，然后执行以下操作：

sapply(comp,function(x){company_filings (x, type = c('10-K','10-Q'), before = 20181231, count = 40)})