Question

我正在尝试将几个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）

Answer 1

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

多个输入形式相同的gwidgets2

1 个答案: