Nothing
test.gradio <- function() {
w <- gwindow()
g <- ggroup(cont = w, horiz = FALSE)
items <- letters[1:4]
l <- gradio(items, selected=1, cont = g)
## svalue
checkEquals(svalue(l), items[1])
checkEquals(svalue(l, index=TRUE), 1)
## svalue<-
svalue(l) <- "b"
checkEquals(svalue(l), "b")
svalue(l, index=TRUE) <- 3
checkEquals(svalue(l, index=TRUE), 3)
## [
checkEquals(l[], items)
## [<-
l[] <- items[1:4]
checkEquals(l[], items[1:4])
}
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.