flavors = c("vanilla", "chocolate", "strawberry")
group = ggroup(container=TRUE)
add(group,glabel("Favorite flavor:"))
add(group, gradio(flavors))
group = ggroup(container=TRUE)
add(group,glabel("Favorite flavor:"))
add(group, gdroplist(flavors, editable =TRUE))
group = ggroup(container=TRUE)
add(group,glabel("Favorite flavors:"))
add(group, obj <- gcheckboxgroup(flavors))
svalue(obj) <- c(TRUE, FALSE, TRUE)
svalue(obj)
obj[3] <- "raspberry"
Run the code above in your browser using DataLab