我正在尝试将几个ginputs
放入gWidgets2
的表单中,或获取在gedit
小部件中输入的文本作为列表或在其余部分中使用的内容代码
library(gWidgets2)
options(guiToolkit = "tcltk")
prj_name = ginput("Project name")
user = ginput("User name")
transfer = ginput("Transfer amount")
我尝试使用gformlayout
,但是它们ginput
显然不能包含在其中。而且我还没有找到如何将小部件上的输入传递给R中的对象(在这种情况下为list
)
答案 0 :(得分:0)
ginput
是一个对话框。您需要的小部件是gedit
。此示例来自gformlayout
w <- gwindow("gformlayout", visible=FALSE)
g <- gvbox(container=w)
flyt <- gformlayout(container=g)
gedit("", label="Name:", container=flyt)
gedit("", label="Rank:", container=flyt)
gedit("", label="Serial No.:", container=flyt)
b <- gbutton("Show me", container=g, handler=function(h,...) {
print(svalue(flyt))
})
addSpring(g)
visible(w) <- TRUE