context('test_plot3d')
data(sinkhole)
test_that('Test Plotting 3D Single Profile', {
plot3d(sinkhole@profiles[[1]])
})
test_that('Test Plotting 3D Profile Set', {
plot3d(sinkhole)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.