R中的设计对话框

Question

我们如何在R中设计一个对话框？

在我看来，我有一些东西在显示警告消息或我们可以写一个特定的值，然后单击一个按钮它执行一些计算......这是可能的R工作区内？

Answer 1

像这样的东西应该工作

library("tcltk") 
button <- tkmessageBox(title='Message',message='Error x!',type='ok') 
button <- tclvalue(button) 
if(button == 'ok'){ 
    #do something 
} 

Answer 2

你可以尝试：

• utils：select.list如果从预先设定的替代选择。 edit更普遍，但抛光不足。

• gWidgets：与tcltk或RGtk2进行对话以产生对话。 gmessage和ginput可能是你在找什么。

Answer 3

winDialog也可以工作：

library(utils) 
answer<-winDialog("yesno", "was the suggestion useful?") 
if (answer=='YES') {print('good!')} else {print('sorry')} 

只是尝试复制完整的代码并将其粘贴到您的[R控制台：“好！”的对话框会出来，并最终输出（或'对不起“）将出现，取决于你点击的答案。