对现有功能使用Apply功能

时间:2019-07-12 16:37:30

标签: r apply lapply edgar

我正在使用“ 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))

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

感谢您的帮助。

1 个答案:

答案 0 :(得分:0)

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

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