inst/tests/ex-gtable.R

In gWidgets: gWidgets API for Building Toolkit-Independent, Interactive GUIs

## example to select CRAN mirror
m <- getCRANmirrors()[,c(1,4)]
setCRAN <- function(URL) { ## see chooseCRANmirror
  print(URL)
  repos = getOption("repos")
  repos["CRAN"] <- gsub("/$", "", URL)
  options(repos=repos)
}


w <- gwindow("gtable example",width=400, visible=FALSE)
gp <- ggroup(horizontal=FALSE, cont=w)

tab <- gtable(m, chosencol = 2, cont=gp, expand=TRUE,
     handler = function(h,...) setCRAN(svalue(h$obj)))
bg <- ggroup(cont=gp)
addSpring(bg)
gbutton("dismiss", cont=bg, handler = function(h,...) dispose(w))

visible(w) <- TRUE

## test svalue, []
svalue(tab, index=TRUE) <- 2 ## set by index
svalue(tab) <- 3             # set by index if 3 is integer
svalue(tab) <- m[1,2]        # set by values
svalue(tab, index=FALSE) <- m[1,2]        # explicit set by value

tab[] <- head(m)                        # shrink
tab[] <- m                              # grow