## Not run:
# 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)
# ## End(Not run)
Run the code above in your browser using DataLab