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
、ユーザーが「OK」を押す以外にウィジェットを閉じる方法はありません。ginput
gconfirm
第 2Parameter
に、ユーザーがウィジェットでオプションを選択しても更新されません。
第三に、スクリプトを一時停止する機能はありますが、その一時停止を と同じコンテナーに統合する方法を見つけられるとよいでしょうwin
。
誰でも私を助けてもらえますか?