Nothing
epOutputHandler <-
function(res=NULL,epPlotInfo=NULL){
if(!is.null(res) && !is.null(epPlotInfo)){
final.output <- list(ExPosition.Data=res,Plotting.Data=epPlotInfo)
class(final.output) <- c("expoOutput","list")
return(final.output)
}#else if(!is.null(res) && is.null(epPlotInfo)){
# return(res)
#}
else{
print("Unknown inputs. epOutputHandler must exit.")
return(0)
}
print("It is unknown how this was executed. epOutputHandler must exit.")
return(0)
}
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.