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.