tests/testthat/test-plot3d.R

In hypertidy/rangl: Mesh Topology and Visualization for Spatial Data

library(silicate)
mm <- silicate::minimal_mesh
test_that("DEL0 works", {
  expect_silent({

    plot3d(SC(mm))
    plot3d(mm, add = TRUE)
    plot3d(SC0(mm))
    plot3d(TRI(mm))
    plot3d(TRI0(mm))
    plot3d(ARC(mm))
    plot3d(DEL(mm))
    plot3d(DEL0(mm))

    plot3d(PATH(mm))
    plot3d(silicate::PATH0(mm))


  })
})