R中的强制菜单选择

Question

我必须运行很多模型，但并非所有这些模型都已安装。 R在菜单中询问我是否要安装这些。截至目前，我必须手动键入“1”，这真的很烦人，因为我必须在新装备上运行200个这样的模型，模型可能需要5分钟到30分钟才能完成运行。

> installChoice <- menu(c("yes", "no"))

1: yes
2: no

Selection: 
Enter an item from the menu, or 0 to exit
Selection: 

我在.R脚本中添加了什么行，以便我可以强制此选择自动提示回答1（即是/ true）。我正在谈论的包是Caret btw。