Nothing
## Copyright (C) 2010 John Verzani
##
## This program is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## A copy of the GNU General Public License is available at
## http://www.r-project.org/Licenses/
## Right way is to extend EXT.Component
##' Container for an image
##'
##'
##' @param filename A url or file in static temp file
##' @param dirname prepended to filename if non empty
##' @param size passed to \code{size<-} method if given
##' @param handler ignored
##' @param action ignored
##' @param container parent container
##' @param ... passed to parent container's \code{add} method
##' @param resizable if widget resizable. Buggy?
##' @export
gimage <- function(filename = "", dirname = "", size = "",
handler = NULL, action = NULL, container = NULL,...,
resizable =FALSE # WWW option. Keep?
) {
if(!resizable) {
widget <- EXTComponentNoItems$new(toplevel=container$toplevel)
class(widget) <- c("gImage", class(widget))
} else {
widget <- EXTComponentResizable$new(toplevel=container$toplevel)
class(widget) <- c("gImage","gWidgetResizable", class(widget))
}
## append dirname if non empty
if(dirname != "")
filename <- String(dirname) + filename
widget$setValue(value=filename)
widget$getValue <- function(., ...) {
## need to be a URL, so we convert if necessary
val <- .$..data
if(isURL(val))
return(val)
if(file.exists(val))
return(convertStaticFileToUrl(val))
return(val)
}
widget$setValueJSMethod = "setValue"
widget$getValueJSMethod = "setValue"
widget$ExtConstructor <- "Ext.ux.imageBox"
widget$ExtCfgOptions <- function(.) {
out <- list()
out[["value"]] = svalue(.)
return(out)
}
if(size != "")
size(widget) <- size
## add after CSS, scripts defined
container$add(widget,...)
## no handler
invisible(widget)
}
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.