inst/tests/label.R

w <- gwindow("test")
g <- ggroup(cont=w, horizontal=FALSE)

l1 <- glabel("one", cont=g)
l2 <- glabel("<b>one</b>", cont=g)

## tests
## svalue
expect_equal(svalue(l1), "one")

## svalue<-
svalue(l1) <- "two"
expect_equal(svalue(l1), "two")

Try the gWidgetsWWW2 package in your browser

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

gWidgetsWWW2 documentation built on May 2, 2019, 6:10 p.m.