R/testthat.R

In rgl: 3D Visualization Using OpenGL

Defines functions expect_known_scene

Documented in expect_known_scene

expect_known_scene <- function(name, close = TRUE, file = paste0("testdata/", name, ".rds"), ...) {
	testthat::local_edition(2)
	result <- testthat::expect_known_value(object = scene3d(), file = file, ...)
  if (close)
  	close3d()
  result
}

Try the rgl package in your browser