R：如何在使用gwidgets时暂停脚本并存储使用输入值？

Question

我试图了解如何使用gWidgets。我正在使用它为没有编程背景的同事创建GUI（因此Rcmdr不起作用）。这是一个示例代码：

options(guiToolkit = "RGtk2")
library(gWidgets)
library (tcltk)

# A function I found on SO that pauses the script
mywait <- function() {
tt <- tktoplevel()
tkpack( tkbutton(tt, text='Continue', command=function()tkdestroy(tt)),
side='bottom')
tkbind(tt,'<Key>', function()tkdestroy(tt) )
tkwait.window(tt)
}

# The interface
win <- gwindow("5 min interval")
Parameter.1 <- gcheckboxgroup(c("Apple","Bananas","Others"),container=win)
Parameter <- svalue(Parameter.1)
mywait()
x=1

目前，我遇到了一些问题。

首先，与gmessage，ginput和gconfirm不同，除了按“确定”之外，用户无法关闭小部件。

其次，当用户在窗口小部件中选择一个选项时，Parameter没有被更新。

第三，尽管我有一个暂停脚本的功能，但如果我能找到一种方法将该暂停与win集成在同一个容器中，那会更好。

有人可以帮我吗？