test_AnimalQTLDB <- function(){
checkEquals(NROW(AnimalQTLDB()), 7)
checkTrue(AnimalQTLDB()[1,1] == 'table')
checkEqualsNumeric(NCOL(AnimalQTLDB()), 5)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.