1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
## 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
|
