setGeneric( "interval_union", def = function( x, ... ) standardGeneric( "interval_union" ) )
setMethod(
"interval_union",
signature( "Intervals_virtual" ),
function( x, ..., check_valid = TRUE ) {
reduce( c( x, ... ), check_valid )
}
)
setMethod(
"interval_union",
signature( "missing" ),
function( x, ..., check_valid = TRUE ) {
# Permitting do.call use with named lists, since do.call will put
# elements whose names are not "x" into the ... argument. Stripping
# names, however, puts arguments in place positionally.
args <- list(...)
names( args ) <- NULL
if ( length( args ) == 0 ) return ( NULL )
else
return(
do.call(
interval_union,
c( args, list( check_valid = check_valid ) )
)
)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.