w <- gwindow("containers")
g <- ggroup(cont=w, horizontal=FALSE)
##########
## notebook
nb <- gnotebook(cont=g)
glabel("page one", label="page one", cont=nb)
glabel("page two", label="page two", cont=nb)
## svalue
expect_equal(svalue(nb), 2)
## svalue<-
svalue(nb) <- 1
expect_equal(svalue(nb), 1)
## length
expect_equal(length(nb), 2)
## names
expect_equal(setNames(names(nb),NULL), c("page one", "page two"))
## dispose
dispose(nb)
expect_equal(length(nb), 1)
##########
## stack widget
cards <- gstackwidget(cont=g)
glabel("card 1", cont=cards)
glabel("card 2", cont=cards)
## svalue
expect_equal(svalue(cards), 2)
## svalue<-
svalue(cards) <- 1
expect_equal(svalue(cards), 1)
## length
expect_equal(length(cards), 2)
## dispose
dispose(cards)
expect_equal(length(cards), 1)
##########
## gborderlayout
bl <- gborderlayout(cont=g, collapsible=list(east=TRUE))
gbutton("east", cont=bl, where="east")
gbutton("center", cont=bl, where="center")
#########
## frame
f <- gframe("label", cont=g)
glabel("in frame", cont=f)
## svalue
expect_equal(svalue(f), "label")
#########
## gexpandgroup
expgp <- gexpandgroup("expandgroup", cont=g, visible=TRUE)
glabel("in expandgroup", cont=expgp)
visible(expgp) <- FALSE
expect_equal(visible(expgp), FALSE)
#########
## gpanedgroup
pg <- gpanedgroup(cont=g)
glabel("left", cont=pg)
glabel("right", cont=pg)
#########
## glayout
lyt <- glayout(cont=g)
lyt[1,1] <- "upper left"
lyt[2,2] <- gbutton("lower right", cont=lyt)
visible(lyt) <- TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.