r - 对现有函数使用 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)})