#' the url of an object
#'
#' get or set the url of an object
#'
#' @param .Object a \linkS4class{webgeom}, \linkS4class{webdata},
#' @param \dots additional arguments that would be passed to the masked base::url function.
#' These are only used when the .Object argument is character or missing
#' \linkS4class{geojob}, or \linkS4class{webprocess} object
#' @param value a url
#' @rdname url
#' @aliases
#' url
#' url<-
#' @export
setGeneric(name="url<-",def=function(.Object, value){standardGeneric("url<-")})
#' @aliases url
#' @rdname url
#' @export
setGeneric(name="url",def=function(.Object, ...){standardGeneric("url")})
#' @aliases url
#' @rdname url
setMethod(f = "url<-",signature(.Object = "ANY"), definition = function(.Object, value){
if (length(value) != 1){
stop('url must be a single character string')
}
.Object@url <- value
return(.Object)})
# special method because other slots depend on value of \code{url} for webprocess object
#' @aliases url
#' @rdname url
setMethod(f = "url<-",signature(.Object = "webprocess"), definition = function(.Object, value){
if (length(value) != 1){
stop('url must be a single character string')
}
.Object <- new(Class = "webprocess", url = value)
return(.Object)})
#'@aliases url
#'@rdname url
setMethod(f = "url",signature(.Object = "character"),
definition = function(.Object, ...){
return(base::url(.Object, ...))
})
#'@aliases url
#'@rdname url
setMethod(f = "url",signature(.Object = "missing"),
definition = function(.Object, ...){
return(base::url(...))
})
#'@aliases url
#'@rdname url
setMethod(f = "url",signature(.Object = "datagroup"),
definition = function(.Object, ...){
return(sapply(.Object@group, function(x) x$url))
})
#'@aliases url
#'@rdname url
setMethod(f = "url",signature(.Object = "ANY"),
definition = function(.Object, ...){
return(.Object@url)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.