Nothing
w <- gwindow("combobox")
g <- ggroup(cont=w, horizontal=FALSE)
g$set_borderwidth(13)
x <- state.name[1:10]
icons <- rep(c("ok", "help"), 5)
tips <- toupper(x)
DF <- data.frame(x,icons, tips, stringsAsFactors=FALSE)
cb1 <- gcombobox(x, cont=g)
cb2 <- gcombobox(DF[,1], cont=g)
## issues
cb3 <- gcombobox(DF[,1:2], cont=g)
cb4 <- gcombobox(DF, cont=g)
## type ahead - www2
##cb5 <- gcombobox(state.name, cont=g, autocomplete=TRUE)
## editalbe
cb6 <- gcombobox(x, editable=TRUE, cont=g)
## not selected
cb7 <- gcombobox(x, selected=0, cont=g)
## tests
## svalue
expect_equal(svalue(cb1), x[1])
expect_equal(svalue(cb1, index=TRUE), 1)
expect_equal(svalue(cb7), x[integer(0)])
## svalue<-
svalue(cb1) <- x[2]
expect_equal(svalue(cb1), x[2])
svalue(cb1, index=TRUE) <- 3
expect_equal(svalue(cb1), x[3])
svalue(cb6) <- "Puerto Rico"
expect_equal(svalue(cb6), "Puerto Rico")
svalue(cb7, index=TRUE) <- 0
expect_equal(svalue(cb7, index=TRUE), 0)
## [
expect_equal(cb1[], x)
## [<
cb1[] <- state.name[1:25]
## length
expect_equal(length(cb1[]), 25)
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.