相同形式的多個輸入 gwidgets2

Question

我正在嘗試將幾個ginputs放入gWidgets2的表單中，或者將在gedit小部件中輸入的文本作為列表或在代碼的 rest 中使用的內容，

library(gWidgets2)
options(guiToolkit = "tcltk")

prj_name   = ginput("Project name")
user = ginput("User name")
transfer = ginput("Transfer amount")

我嘗試使用gformlayout但它們ginput顯然不能包含在一個中； 而且我還沒有找到如何將小部件上的輸入傳遞給 R 中的 object （本例中為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