Nothing
setColor <- function(currentColor="gold"){
currentColor <- gdkColorParse(currentColor)$color
colorDA <- gtkDrawingAreaNew()
colorDA$modifyBg("normal", currentColor)
g <-glayout(container=gwindow(width=50,height=20,parent=getOption("widgetCoordinate")),homogeneous=TRUE,title="Change color.")
g[1,1:3] <- colorDA
g[2,1] <- gbutton("Select Color",handler=function(h,...){
dialog <- gtkColorSelectionDialogNew("Changing color", show=T)
colorsel <- dialog[["colorsel"]]
colorsel$setPreviousColor(currentColor)
colorsel$setCurrentColor(currentColor)
colorsel$setHasPalette(TRUE)
response <- dialog$run()
if (response == GtkResponseType["ok"])
{
currentColor <- colorsel$getCurrentColor()$color
colorString <- gdkColorToString(currentColor)
colorDA$modifyBg("normal", currentColor)
}
dialog$destroy()
})
g[2,2] <- gbutton("OK",handler=function(h,...) {
dispose(g)})
g[2,3] <- gbutton("Cancle",handler=function(h,...) {
dispose(g)})
}
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.