context("SparseAssays class")
test_that("NROW,SimpleListSparseAssays-method is compatible with generic", {
generic <- getGeneric("NROW")
method <- getMethod("NROW", "SparseAssays")
expect_identical(generic@signature, "x")
expect_identical(formals(generic@.Data), formals(method@.Data))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.