Как получить информацию о нескольких компаниях с помощью edgarWebR

Я пытаюсь получить компании и их информацию от EDGAR, используя пакет edgarWebR. В частности, я хочу использовать две функции из пакета - filing_information и company_filings.

На самом деле у меня есть тысячи cik в другом наборе данных, но обе функции выше не могут работать с вектором cik. Это пример -

library(edagrWebR)
comp_file <- company_filings(c("1000045"), before = "20201231",
                            type = "10-K",  count = 100,
                            page = 1)

head(comp_file)
  accession_number act file_number filing_date accepted_date
1             <NA>  34   000-26680  2020-06-22    2020-06-22
2             <NA>  34   000-26680  2019-06-28    2019-06-28
3             <NA>  34   000-26680  2018-06-27    2018-06-27
4             <NA>  34   000-26680  2017-06-14    2017-06-14
5             <NA>  34   000-26680  2016-06-14    2016-06-14
6             <NA>  34   000-26680  2015-06-15    2015-06-15
                                                                                               href
1 https://www.sec.gov/Archives/edgar/data/1000045/000156459020030033/0001564590-20-030033-index.htm
2 https://www.sec.gov/Archives/edgar/data/1000045/000156459019023956/0001564590-19-023956-index.htm
3 https://www.sec.gov/Archives/edgar/data/1000045/000119312518205637/0001193125-18-205637-index.htm
4 https://www.sec.gov/Archives/edgar/data/1000045/000119312517203193/0001193125-17-203193-index.htm
5 https://www.sec.gov/Archives/edgar/data/1000045/000119312516620952/0001193125-16-620952-index.htm
6 https://www.sec.gov/Archives/edgar/data/1000045/000119312515223218/0001193125-15-223218-index.htm
  type film_number
1 10-K    20977409
2 10-K    19927449
3 10-K    18921743
4 10-K    17910577
5 10-K   161712394
6 10-K    15931101
                                               form_name
1 Annual report [Section 13 and 15(d), not S-K Item 405]
2 Annual report [Section 13 and 15(d), not S-K Item 405]
3 Annual report [Section 13 and 15(d), not S-K Item 405]
4 Annual report [Section 13 and 15(d), not S-K Item 405]
5 Annual report [Section 13 and 15(d), not S-K Item 405]
6 Annual report [Section 13 and 15(d), not S-K Item 405]
  description  size
1        <NA> 14 MB
2        <NA> 10 MB
3        <NA>  5 MB
4        <NA>  5 MB
5        <NA>  5 MB
6        <NA>  7 MB

Мне нужно использовать переменную href в функции filing_information.

На самом деле, я пытался использовать его таким образом -

file_info <- filing_information(comp_file$href) 

Но это не работает. Я получил это сообщение -

Error in parse_url(url) : length(url) == 1 is not TRUE

На самом деле я могу сделать это, поместив значение каждой переменной href следующим образом:

x <- "https://www.sec.gov/Archives/edgar/data/1000045/000156459020030033/0001564590-20-030033-index.htm"

file_info <- filing_information(x)

То же самое верно для функции company_filings, где я использую только один cik - 1000045, но в другом файле у меня есть тысячи cik, для всех которых я хочу запустить функцию company_filings. Вручную это невозможно, так как у меня cik тысяч.

Кто-нибудь знает, как я могу автоматически выполнять эти две функции на БОЛЬШОМ векторе.

Спасибо