Nothing
setValidity("remoteDB",
function(object) {
if(length(object@name) == 0)
return("object needs a non-empty 'name'")
if(length(object@url) == 0)
return("object needs a non-empty 'url'")
if(!validURL(object@url))
return("object needs a 'url' of type 'http://'")
TRUE
})
validURL <- function(URL) {
if(length(grep("^http://", URL)) > 0)
TRUE
else
FALSE
}
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.