test_that("makeGeneToSymbolFromEnsDb", {
skip_if_not_installed("EnsDb.Hsapiens.v75")
formats <- eval(formals(makeGeneToSymbolFromEnsDb)[["format"]])
for (format in formats) {
object <- makeGeneToSymbolFromEnsDb(
object = "EnsDb.Hsapiens.v75",
format = format
)
expect_s4_class(object, "GeneToSymbol")
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.