library(decoupleR)
test_that("test show_resources", {
lst <- show_resources()
testthat::expect_true(length(lst) > 0)
})
test_that("test get_resource", {
df <- get_resource('TFcensus')
testthat::expect_true(nrow(df) > 0)
})
test_that("test get_progeny human", {
df <- get_progeny(organism = 'human')
testthat::expect_true(nrow(df) > 0)
})
test_that("test get_progeny mouse", {
df <- get_progeny(organism = 'mouse')
testthat::expect_true(nrow(df) > 0L)
})
test_that("test get_dorothea human", {
df <- get_dorothea(organism = 'human', levels = c('A', 'B'))
testthat::expect_true(nrow(df) > 0)
})
test_that("test get_dorothea mouse", {
df <- get_dorothea(organism = 'mouse', levels = c('A', 'B'))
testthat::expect_true(nrow(df) > 0)
})
test_that("test get_collectri", {
df <- get_collectri(split_complexes=FALSE)
testthat::expect_true(nrow(df) > 0)
df_split <- get_collectri(split_complexes=TRUE)
testthat::expect_true(nrow(df) < nrow(df_split))
df_meta <- get_collectri(load_meta=TRUE)
testthat::expect_true(ncol(df) < ncol(df_meta))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.