tests/testthat/test-sc-rgl.R

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")

})
mdsumner/scrgl documentation built on Oct. 16, 2019, 1:44 p.m.