tests/testthat/test_info.R

test_that("infoTCGA() function works properly", {
    expect_equal( dim(infoTCGA()), c(38, 13) )
    expect_is( infoTCGA(), "data.frame" )
    expect_equal("ACC" %in% (sub("-counts", "", x= rownames( infoTCGA()  ) ) ), T)
        
})
RTCGA/RTCGA documentation built on Nov. 1, 2022, 8:15 p.m.