widgetTools (version 1.50.0)

widget-class: Class "widget" creates a widget with primary widgets contained in the list pWidgets rendered

Description

This class takes a list of primary widgets and then creates a "widgetView" object that renders the primary widgets

Objects from the Class

Objects can be created by calls of the form new("widget", ...).

Slots

wTitle:

Object of class "character" - a character string for the title of the widget to be created

pWidgets:

Object of class "list" - a list of "basicPW" objects representing widget elements to be rendered

env:

Object of class "environment" - an R environment for the object to work within

funs:

Object of class "list" - a list of functions that will be associated with buttons on the widget to be rendered. The name of the function in the list will be the text appears on the button and the function will be executed when the button is pressed

preFun:

Object of class "function" - a function that will be executed before the widget is constructed

postFun:

Object of class "function" - a function that will be executed before the widget is destroyed

Methods

env<-

signature(object = "widget"): set the value for env

wEnv

signature(object = "widget"): get the value for env

funs<-

signature(object = "widget"): set the value for funs

funs

signature(object = "widget"): get the value for funs

postFuns<-

signature(object = "widget"): set the value for postFuns

postFun

signature(object = "widget"): get the value for postFuns

preFuns<-

signature(object = "widget"): set the value for preFun

preFun

signature(object = "widget"): get the value for preFun

pWidgets<-

signature(object = "widget"): set the value for pWidgets

pWidgets

signature(object = "widget"): get the value for pWidgets

updateCheck

signature(object = "widget"): update the value of check buttons of the widget to be rendered

updateList

signature(object = "widget"): update the value of list box/entry of the widget to be rendered

updateRadio

signature(object = "widget"): update the value of radio buttons of the widget to be rendered

updateText

signature(object = "widget"): update the value of text box of the widget to be rendered

wTitle<-

signature(object = "widget"): set the value of wTitle

wTitle

signature(object = "widget"): get the value of wTitle

References

Programming with data

See Also

basicPW-class, widgetView-class

Examples

PWEnv <- new.env(hash = TRUE, parent = parent.frame(1))

label1 <- label(wName = "label1", wValue = "File Name: ", wEnv = PWEnv)
entry1 <- entryBox(wName = "entry1", wValue = "Feed me using browse",
                   wEnv = PWEnv)
browse2Entry1 <- function(){
    tempValue <- fileBrowser()
    temp <- get(wName(entry1), wEnv = PWEnv)
    wValue(temp) <- paste(tempValue, sep = "", collapse = ";")
    assign(wName(entry1), temp, env = PWEnv)
}
button1 <- button(wName = "button1", wValue = "Browse",
                     wFuns = list(command = browse2Entry1), wEnv = PWEnv)
list1 <- listBox(wName = "list1", wValue = c(Option1 = TRUE, Option2 = FALSE,
                                 Option3 = FALSE), wEnv = PWEnv)
text1 <- textBox(wName = "text1", wValue = "Feed me something",
                 wEnv = PWEnv)
label2 <- label(wName = "label2", wValue = "Select one:  ", wEnv = PWEnv)
radios1 <- radioButton(wName = "radios1", wValue = c(radio1 = TRUE,
                       radio2 = FALSE, radio3 = FALSE), wEnv = PWEnv)
label3 <- label(wName = "label3", wValue = "Select one to many: ",
wEnv = PWEnv)
checks1 <- checkButton(wName = "checks1", wValue = c(check1 = TRUE,
                       check22 = FALSE, check3 = FALSE), wEnv = PWEnv)
pWidgets <- list(topRow = list(label1 = label1, entry1 = entry1,
                 button1 = button1), textRow = list(list1 = list1,
                 text1 = text1), radGroup = list(label2 = label2,
                 radios1 = radios1), chkGroup = list(label3 = label3,
                                     checks1 = checks1))

## Not run: 
# ## These cannot be run by examples() but should be OK when pasted
# ## into an interactive R session with the widgetTools package loaded
# 
# aWidget <- widget(wTitle = "A test widget", pWidgets, funs = list(),
#                  preFun = function() print("Hello"),
#                  postFun = function() print("Bye"), env = PWEnv)
# ## End(Not run)