File: test-getShaders.R

package info (click to toggle)
rgl 1.3.34-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 13,968 kB
  • sloc: cpp: 23,234; ansic: 7,462; javascript: 6,125; sh: 3,555; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 211 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
 
library(rgl)

test_that("getShaders works", {
	x <- 1:3
	y <- 1:5
	z <- matrix(1:15, 3, 5)
	open3d()
	id <- surface3d(x, y, z, col = "red")
	if (requireNamespace("V8"))
	  expect_no_condition(getShaders(id))
})