## Not run:
# i <- aDialog(items=list(x=numericItem(1), y=stringItem("a")))
# lay <- aNotebook(
# aNotebookPage(label="page 1", "x"),
# aNotebookPage(label="page 2", "y")
# )
# i$make_gui(gui_layout=lay)
# ## End(Not run)
Run the code above in your browser using DataLab