Learn R Programming

gWidgets (version 0.0-25)

gradio: Widgets to allow selection from a vector of items

Description

Widgets to select one (or several) from a given vector of items. These are a radio group where all values are shown at once, but only one may be selected; a checkbox group where more than one may be selected; and a droplist where initially only a single value is shown, and the others are a mouse click away,

Usage

gradio(items, selected = 1, horizontal = FALSE, handler
= NULL, action = NULL, container = NULL, ..., toolkit = guiToolkit())

gdroplist(items, selected = 1, editable = FALSE, coerce.with=NULL, handler = NULL, action = NULL, container = NULL, ..., toolkit = guiToolkit())

gcheckboxgroup(items, checked = FALSE, horizontal = FALSE, handler = NULL, action = NULL, container = NULL, ..., toolkit = guiToolkit())

Arguments

Details

The basic methods all work similarly for these three widgets.

The svalue method returns the selected values by name. If the extra argument index=TRUE is specified, the indices of the selected values is given.

The svalue<- method can be used to set the selected value.

The "[" method refers to the vector defining the items.

The "[<-" method can be used to change the vector defining the items. The length will most likely need to be the same.

The "length" method returns the number of items. For gdroplist the argument editable=TRUE adds a text-edit box where the user can type in a selection. By default this value is returned as a character by svalue. Use coerce.with to coerce this prior to returning.

Examples

Run this code
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