tests/gwindow.R

## Basic test to see if gWidgetsWWW works for a simple GUI

require(gWidgetsWWW, quietly=TRUE)
w <- gwindow("Test of a window")
g <- ggroup(horizontal=FALSE, cont=w)
b <- gbutton("button", cont=g, handler = function(h,...) {
  gmessage(svalue(b), parent=b)
})
svalue(b)
svalue(b) <- "new label text"
## show it
w

Try the gWidgetsWWW package in your browser

Any scripts or data that you put into this service are public.

gWidgetsWWW documentation built on May 2, 2019, 4:47 p.m.