Nothing
test_that("read_gmt() output", {
gmt_tbl <- read_gmt(file = "http://software.broadinstitute.org/gsea/msigdb/supplemental/scsig.all.v1.0.symbols.gmt")
expect_s3_class(gmt_tbl, "tbl_df")
expect_gt(nrow(gmt_tbl), 1000)
})
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.