context("sc-rgl")
library(rgl)
y <- subdivision3d(tetrahedron3d(col = "red"), depth = 3)
test_that("get rgl objects into shape", {
PRIMITIVE(y) %>% expect_s3_class("PATH") %>% expect_s3_class("sc")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.