Accessors for Primitive Widget Objects
Currently primitive widget objects (pwidget
s) are implemented
as list
s, but this will change. Users should only rely
on these accessors functions, not the implementation.
WName(x) WValue(x) WValue(x) <- value WtoText(x) WfromText(x) WcanEdit(x) WbuttonText(x) WbuttonFun(x) WwList(x) WwList(x) <- value WLValue(x, index) WLValue(x, index) <- value WRButtons(x) WpreFun(x) WpostFun(x) WEnd(x)
x |
list of lists with a Name, Value, toText, fromText, canEdit, buttonText, buttonFun, preFun, postFun element. |
index |
integer or character string as an index or name for the list in the first list of a list of lists for a widget. |
value |
An R data type that is going to be used to update the value. |
WName(x)
returns the Name
element of x
.
WValue(x)
returns the Value
element of x
.
WValue(x) <- value
will change the Value
element of
x
to value
.
WtoText(x)
returns the toText
element of x
.
WfromText(x)
returns the fromText
element of x
.
WcanEdit(x)
returns the canEdit
element of x
.
WbuttonText(x)
returns the buttonText
element of x
.
WbuttonFun(x)
returns the buttonFun
element of x
.
WwList(x)
returns the wList
element of x
.
WwList <- value
will update the wList
element of a
Widget list with value
.
WLValue(x, index)
returns a list indicated by the
index in the wList of a widget list.
WLValue(x, index) <- value
will update indicated
by the index in the wList of a widget list with the value.
WpreFun(x)
returns the preFun element of x
.
WpostFun(x)
returns the post element of x
.
WEnd(x)
returns the end element of x
.
A character string or R function represented by the element of the list whose value is to be retrieved.
Jianhua (John) Zhang
widgetRender
for references etc.
# Create the list of lists pW1 <- list(Name="AAA", Value="bbb", toText = function(x) paste(x,collapse = ","), fromText = NULL, canEdit = TRUE, buttonFun = ls, buttonText = "Browse") widget1 <- list(wList = list(a = pW1), preFun = function() "Hi", postFun = function() "Bye") # Call the functions WName(pW1) WValue(pW1) WValue(pW1) <- "lll" WtoText(pW1) WfromText(pW1) WcanEdit(pW1) WbuttonText(pW1) WbuttonFun(pW1) WwList(widget1) WwList(widget1) <- list(Name = "New list", Value = "New value") WLValue(widget1, 1) WLValue(widget1, 1) <- "New value" WpreFun(widget1) WpostFun(widget1) WEnd(widget1)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.