widget-class {widgetTools} | R Documentation |
This class takes a list of primary widgets and then creates a "widgetView" object that renders the primary widgets
Objects can be created by calls of the form new("widget", ...)
.
wTitle
:"character"
- a
character string for the title of the widget to be createdpWidgets
:"list"
- a list of
"basicPW" objects representing widget elements to be renderedenv
:"environment"
- an R
environment for the object to work withinfuns
:"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
:"function"
- a function
that will be executed before the widget is constructedpostFun
:"function"
- a function
that will be executed before the widget is destroyedsignature(object = "widget")
: set the value for envsignature(object = "widget")
: get the value for envsignature(object = "widget")
: set the value for
funssignature(object = "widget")
: get the value for funssignature(object = "widget")
: set the value
for postFunssignature(object = "widget")
: get the value
for postFunssignature(object = "widget")
: set the value
for preFunsignature(object = "widget")
: get the value for
preFunsignature(object = "widget")
: set the value
for pWidgetssignature(object = "widget")
: get the value
for pWidgetssignature(object = "widget")
: update the
value of check buttons of the widget to be renderedsignature(object = "widget")
: update the
value of list box/entry of the widget to be renderedsignature(object = "widget")
: update the
value of radio buttons of the widget to be renderedsignature(object = "widget")
: update the
value of text box of the widget to be renderedsignature(object = "widget")
: set the value
of wTitlesignature(object = "widget")
: get the value of
wTitleThis class is part of the Bioconductor project at Dana-Farber Cancer Institute to provide Bioinformatics functionalities through R
Jianhua Zhang
Programming with data
basicPW-class
, widgetView-class
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)