i <- aDialog(items=list(x=numericItem(1), y=stringItem("a")))
lay <- aPanedGroup("x","y") ## just two children,
i$make_gui(gui_layout=lay)
## can put other children into a container to make just two children for aPanedGroup instance
j <- aDialog(items=list(x=numericItem(1), y=stringItem("a"), z=trueFalseItem(TRUE, label="check me")))
lay <- aPanedGroup("x", aContainer("y", "z"))
j$make_gui(gui_layout=lay)
Run the code above in your browser using DataLab