flavors <- c("vanilla", "chocolate", "strawberry")
f <- function(h,...) print(
paste("Yum",
paste(svalue(h$obj),collapse=" and "),
sep = " "))
w <- gwindow("Radio example")
gp <- ggroup(container=w)
glabel("Favorite flavor:",cont=gp)
rb <- gradio(flavors, cont=gp, handler = f)
w <- gwindow("combobox example")
gp <- ggroup(container=w)
glabel("Favorite flavor:", cont=gp)
gcombobox(flavors, editable=TRUE, cont=gp, handler=f)
w <- gwindow("checkbox example")
gp <- ggroup(container=w)
glabel("Favorite flavors:",cont=gp)
cb <- gcheckboxgroup(flavors, cont=gp, handler=f)
svalue(cbg) <- c(TRUE, FALSE, TRUE)
svalue(cbg)
cbg[3] <- "raspberry"
Run the code above in your browser using DataLab