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 createdpWidgets
:Object of class
"list"
- a list of "basicPW" objects representing widget elements to be renderedenv
:Object of class
"environment"
- an R environment for the object to work withinfuns
: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 pressedpreFun
:Object of class
"function"
- a function that will be executed before the widget is constructedpostFun
: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
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)