Nothing
#' the attribute of an webgeom object
#'
#' get or set the attribute of a webgeom object.
#'
#'@param .Object a \linkS4class{webgeom} object
#'@param value a attribute
#'@rdname attribute
#'@aliases
#'attribute
#'attribute<-
#'@export
setGeneric(name="attribute<-",def=function(.Object, value){standardGeneric("attribute<-")})
#'@aliases attribute
#'@rdname attribute
#'@export
setGeneric(name="attribute",def=function(.Object){standardGeneric("attribute")})
#'@aliases attribute
#'@rdname attribute
setMethod(f = "attribute<-",signature(.Object = "webgeom"), definition = function(.Object, value){
.Object <- initialize(.Object, attribute = value)
return(.Object)})
#'@aliases attribute
#'@rdname attribute
setMethod(f = "attribute",signature(.Object = "webgeom"),
definition = function(.Object){
return(.Object@attribute)
})
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.