## Not run:
# data(d.pizza)
# SelectVarDlg(x = d.pizza, T)
# SelectVarDlg(x = d.pizza$driver )
#
# x <- replicate(10, paste( sample(LETTERS, 5, replace = TRUE), collapse="") )
# SelectVarDlg(x)
# ## End(Not run)
Run the code above in your browser using DataLab