Nothing
setMethod(
"show",
signature( "Intervals_virtual" ),
function( object ) {
cat(
"Object of class ",
class( object ),
"\n",
nrow( object ),
" interval",
ifelse( nrow( object ) == 1, "", "s" ),
" over ",
type(object),
":\n",
sep = ""
)
ints <- as( object, "character")
if ( !is.null( rownames( object ) ) ) {
fmt <- sprintf( "%%%is", max( nchar( rownames( object ) ) ) )
ints <- paste( sprintf( fmt, rownames( object ) ), ints )
}
cat( ints, sep = "\n" )
}
)
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.