Nothing
test.gedit <- function() {
w <- gwindow()
g <- ggroup(cont = w, horiz = FALSE)
text <- "label text"; newText <- "new"
l <- gedit(text, cont = g)
# svalue
checkEquals(svalue(l), text)
# svalue<-
svalue(l) <- newText
checkEquals(svalue(l), newText)
# [<-
l[] <- state.name
}
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.