Nothing
w <- gwindow("statusbar")
sb <- gstatusbar("statusbar", cont=w)
g <- ggroup(cont=w)
sb1 <- gstatusbar("inner bar", cont=g)
## test
## svsalu
expect_equal(svalue(sb), "statusbar")
## svalue<--
svalue(sb) <- "new"
expect_equal(svalue(sb), "new")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.