Question

我在尝试将“ pages”元素与“ type”一起合并时遇到了麻烦-pages元素发生了变化，但是类型保持不变。

我当前拥有的代码会映射到代码行中，然后将数据下载为列表格式，但是它仅使用默认页数，如何在代码行和页面中进行映射？

添加company_filings（页面，类型）无效。

bookings | places | week
----------------------------------------------
8        | 66     | 2019-02-04 00:00:00.000000
39       | 240    | 2019-01-28 00:00:00.000000
39       | 243    | 2019-01-21 00:00:00.000000
35       | 210    | 2019-01-14 00:00:00.000000
39       | 224    | 2019-01-07 00:00:00.000000
14       | 96     | 2018-12-31 00:00:00.000000
0        | 12     | 2018-12-24 00:00:00.000000

编辑：

我想要实现的目标是做类似的事情：

library(edgarWebR)

tickers <- c("63908", "793952")
count <- 100
pages <- 1:4
type = "10-K"

custom_company_filings <- function(compfilings){
  company_filings(compfilings)
}

x <- Map(custom_company_filings, tickers)

因此，我将为每个股票行情收集for(tick in tickers){ for(i in pages){ company_filings("get company filings") } }的第1,2、3、4页-这些页面来自company_filing() function包。

edgarWebr函数是我试图解决问题的尝试，但是当我在此处发布时，我删除了所有尝试。例如，一种尝试是：

custom_company_filing()

Answer 1

我们可以使用嵌套的lapply：

library(edgarWebR)

tickers <- c("63908", "793952")
count <- 100
pages <- 1:4
type <- "10-K"

lapply(tickers, function(x){
  lapply(pages, function(y){
    company_filings(x, type = type, count = count, page = y)    
  })
})

或使用purrr：

library(purrr)

pmap(expand.grid(tickers, pages), ~company_filings(..1, type = type, count = count, page = ..2))

映射自定义函数

1 个答案: