gmessage("Hi there")
gconfirm("Are we having fun?", handler = function(h,...)
print("Yes"))
ginput("Enter your name", icon="question", handler = function(h,...) cat("Hi",h$input,"\n"))
## gbasicdialog
w <- gbasicdialog(title="Select a state", handler = function(h,...)
print(svalue(tbl)))
tbl <- gtable(data.frame(states = rownames(state.x77)), expand=TRUE, cont = w)
visible(w, set=TRUE) ## show dialog
Run the code above in your browser using DataLab