Nothing
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)
})
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.