R 提示';是';每次都是为了获取文件

R 提示';是';每次都是为了获取文件,r,for-loop,edgar,R,For Loop,Edgar,我将使用EDGAR软件包为R中的几个公司下载2005 10 Ks。我有一个小循环要测试,它正在工作: 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

我将使用EDGAR软件包为R中的几个公司下载2005 10 Ks。我有一个小循环要测试,它正在工作:

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)
一切正常:

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"

请记住在您的问题中包含一个最小的可复制示例,包括
库(…)
和所有其他必要的命令:

library(edgar)
report <- getMasterIndex(2005)
一切正常:

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"

美好的另一种替换该行的方法是
body(getfileings)[[6]][[3]][[3]][[3]][[8]]Brilliant!非常感谢。下次我还将包括库代码。@RichScriven,这非常有效。请你详细说明如何确定清单的内容好吗?我也希望能够将此方法用于其他功能。(或者如果包/函数中的某些内容发生了更改,从而影响了精确的编号)例如,对于1.0.9版,正确的行似乎是
body(getfileings)[[7][[3][[3]][[3]][[8]]
Nice。替换该行的另一种方法是
body(getfileings)[[6]][[3]][[3]][[3]][[8]]太棒了!谢谢。下次我还将包括库代码。@RichScriven,这非常有效。您能详细说明如何识别列表中的元素吗?我希望能够将此方法用于其他函数。(或者如果包/函数中的某些更改影响了精确编号)例如,对于1.0.9版,正确的行似乎是
body(getfileings)[[7][[3]][[3]][[3]][[8]