Подскажите "Да" каждый раз, чтобы получить Filings в R

Question

Я собираюсь скачать 2005 10-K для нескольких корпораций в R, используя пакет EDGAR. У меня есть мини-цикл для проверки, который работает:

for (CIK in c(789019, 777676, 849399)){
  getFilings(2005,CIK,'10-K')
}

Однако каждый раз, когда это выполняется, я получаю приглашение да / нет, и мне приходится вводить "да":

Total number of filings to be downloaded=1. Do you want to download (yes/no)? yes
Total number of filings to be downloaded=1. Do you want to download (yes/no)? yes
Total number of filings to be downloaded=1. Do you want to download (yes/no)? yes

Как я могу предложить R ответить "да" для каждого запуска? Спасибо

Answer 1

Пожалуйста, не забудьте включить минимальный воспроизводимый пример в свой вопрос, в том числе library(...) и все остальные необходимые команды:

library(edgar)
report <- getMasterIndex(2005)

Мы можем обойти подсказку, выполнив некоторые операции с кодом. Здесь мы получаем код для getFilingsи замените строку, которая запрашивает приглашение, только сообщением. Затем мы пишем новую функцию (my_getFilings) во временный файл и source этот файл:

x <- capture.output(dput(edgar::getFilings))
x <- gsub("choice <- .*", "cat(paste(msg3, '\n')); choice <- 'yes'", x)
x <- gsub("^function", "my_getFilings <- function", x)
writeLines(x, con = tmp <- tempfile())
source(tmp)

Всё скачивается нормально:

for (CIK in c(789019, 777676, 849399)){
  my_getFilings(2005, CIK, '10-K')
}
list.files(file.path(getwd(), "Edgar filings"))
# [1] "777676_10-K_2005" "789019_10-K_2005" "849399_10-K_2005"