test_that("Transcript", {
cl.tx <- ClippedTranscripts()
expect_true(validObject(cl.tx))
nms <- c("5prime", "3prime")
expect_identical(names(cl.tx), nms)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.