tests/testthat/test_funs.R

In canceR: A Graphical User Interface for accessing and modeling the Cancer Genomics Data of MSKCC

context("canceR functions")

#test_that("set_class", {
# foo <- . %>% .^2 %>% set_class(c("foo", class(.)))
#expect_equal(3 %>% foo %>% class,c("foo","numeric"))
#})

testthat::test_that("cgdsr connection",
                    {
                        mycgds <- cgdsr::CGDS("http://www.cbioportal.org/")
                        result <- cgdsr::test(mycgds)
                    })