context('get_all_ref_classes')
test_that('it can get all reference class and superclasses for a simple example', {
methods::setRefClass('test__c')
methods::setRefClass('test__d', contains = 'test__c')
expect_equal(get_all_ref_classes(list(getClass('test__d'))),
c('test__d', 'test__c', 'envRefClass'))
removeClass('test__c')
removeClass('test__d')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.