widget-class {widgetTools}R Documentation

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

Note

This class is part of the Bioconductor project at Dana-Farber Cancer Institute to provide Bioinformatics functionalities through R

Author(s)

Jianhua Zhang

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)

[Package widgetTools version 1.6.0 Index]