getFilingsをRにするたびにプロンプ​​ト「はい」

Question

EDGARパッケージを使用してRのいくつかの企業の2005年10-Kをダウンロードします。私が作業しているテストするためのミニループがあります。しかし

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を実行するたびに「はい」と答えますか？

library(edgar) 
report <- getMasterIndex(2005) 

我々はいくつかのコードの手術を行うことによって、プロンプトをバイパスすることができます

Answer 1

library(...)および他のすべての必要なコマンドを含め、あなたの質問に最小限の再現性の例を含めることを忘れないでください、ありがとうございました。ここでは、getFilingsのコードを取得し、プロンプトを表示する行をメッセージだけに置き換えます。

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"