tests/testthat/test_funs.R

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

testthat::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("cbioportal connection",
                    {
                       # mycgds <- CGDS("http://www.cbioportal.org/api/v2/api-docs")
                        cgds <- cBioPortalData::cBioPortal(
                            hostname = "www.cbioportal.org",
                            protocol = "https",
                            api = "/api/v2/api-docs"
                        )
                        result <- test.CGDS(cgds)
                    })