| gexpandgroup | R Documentation | 
For gexpandgroup, the visible assignment method is overridden to change the disclosure state
The change handler for a expandGroup is called when the group changes visibility
gexpandgroup(
  text = "",
  markup = FALSE,
  horizontal = TRUE,
  handler = NULL,
  action = NULL,
  container = NULL,
  ...,
  toolkit = guiToolkit()
)
.gexpandgroup(
  toolkit,
  text = "",
  markup = FALSE,
  horizontal = TRUE,
  handler = NULL,
  action = NULL,
  container = NULL,
  ...
)
## S3 replacement method for class 'GExpandGroup'
 visible(obj) <- value
## S3 method for class 'GExpandGroup'
addHandlerChanged(obj, handler, action = NULL, ...)
| text | Label text | 
| markup | logical. Does text have markup? (Toolkit dependent: only implemented for  | 
| horizontal | horizontal ( | 
| handler | handler called when state is toggled | 
| action | passed to handler | 
| container | parent container | 
| ... | passed to parent's  | 
| toolkit | toolkit | 
| obj | object receiving event and emitting a signal to the handler | 
| value | logical. If  | 
An object of class GExpandGroup
inheriting from GFrame
ggroup and gframe
 if(interactive()) {
    w <- gwindow("Box containers")
    g <- gvbox(cont=w)                         # ggroup(horizonta=FALSE, ...)
    nb <- gnotebook(cont=g); gbutton("one", label="one", cont=nb)
    gframe("Frame", cont=g)
    pg <- gpanedgroup(cont=g);
    gbutton("one", cont=pg);
    gbutton("two", cont=pg)
    eg <- gexpandgroup(cont=g, horizontal=FALSE);
    glabel("Click above to hide", cont=eg);
    gbutton("one", cont=eg);
    gbutton("two", cont=eg)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.