Nothing
test_that("TRI works", {
## not doing anything useful atm
## can this go into silicate?
expect_silent(triq <- TRI.QUAD(QUAD(volcano)))
plot3d(QUAD(volcano))
mesh_plot(QUAD(volcano))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.