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

winDialog也有效：

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

尝试复制完整代码并将其粘贴到R控制台中：将出现一个对话框，根据您单击的答案，将显示最终输出（'good！'或'sorry'）。

Answer 3

你可以尝试：

• utils：select.list如果您从预先设定的替代方案中进行选择。 edit更为通用，但不那么精致。

• gWidgets：与tcltk或RGtk2接口以生成对话。 gmessage和ginput可能就是您要找的。