Nothing
setGeneric( "interval_overlap", def = function( from, to, ... ) standardGeneric( "interval_overlap" ) )
setMethod(
"interval_overlap",
signature( "Intervals_virtual_or_numeric", "Intervals_virtual_or_numeric" ),
function( from, to, check_valid = TRUE ) {
result <- which_nearest( from, to, check_valid )$which_overlap
names( result ) <- rownames( from )
return( result )
}
)
argument_error <- paste(
"The 'from' and 'to' arguments are required. Note that the",
" interval_overlap argument names changed at v. 0.11.1.",
" See documentation.",
sep = "\n"
)
setMethod(
"interval_overlap",
signature( from = "missing", to = "ANY" ),
function( from, to, check_valid, ... ) stop( argument_error )
)
setMethod(
"interval_overlap",
signature( from = "ANY", to = "missing" ),
function( from, to, check_valid, ... ) stop( argument_error )
)
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.