我正在编写一个R例程,该例程将信息提供给最终用户,然后查询他们的响应。收到响应后,我需要循环进行一些其他处理以“更新一年”,然后我要再次提出选择。我的例程的目标是为最终用户模拟环境。
我一直在使用readline()来捕获响应,但是挑战在于最终用户必须依靠excel来查看报告。我希望所有这些都尽可能在R中发生(因为它更加简化和无缝)。
我觉得解决方案在于发光板或Flexdashboard。我的闪亮挑战是,我不知道在收集输入后如何循环播放。对于flexdashboard,我可以显示信息,但是readline()并不是收集用户输入的最优雅的方法。
adding_example<-function(starting_value){
yr<-1
end_value<-starting_value
while (yr<=10) {
print(end_value)
val<-readline("What value would you like to add?: ")
end_value<-end_value+as.numeric(val)
yr<-yr+1
}
return(end_value)
}
此例程有效。感谢您提供任何有助于封装此循环的闪亮例程(或flexdashboard)的帮助!