output_vector <- output_get(iotable_get())
test_that("correct output vector is returned by output_get()", {
expect_equal(as.character(output_get(iotable_get())[[1]][1]), "output")
})
#more tests needed
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.