context("test-mesh3dlist")
test_that("mesh3dlist() works", {
a <- mesh3dlist(1)
expect_type(a, 'list')
expect_true('mesh3dlist' %in% class(a))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.