Nothing
test_that("shapelist3d works with col (issue #462)", {
col <- 1:5
open3d()
shapelist3d(cube3d(), x = 1:2, y = 1, z = 1, col = c("red", "blue"))
expect_known_scene("shapelist3d")
})
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.