Nothing
print.riverplot <- function( x ) {
cat(sprintf( "RiverPlot object with %d nodes:\n", length(names(x))))
print(names(x))
return(invisible(x))
}
as.matrix.riverplot <- function( x ) conn2mtx( x$conn )
names.riverplot <- function( x ) x$nodes$ID
length.riverplot <- function( x ) length( x$nodes )
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.