Safe ways to call package 'rgl' without requiring 'x11' — rgl-call • ravetools

Internally used for example show-cases. Please install package 'rgl' manually to use these functions.

Usage

rgl_call(FUN, ...)

rgl_view(expr, quoted = FALSE, env = parent.frame())

rgl_plot_normals(x, length = 1, lwd = 1, col = 1, ...)

Arguments

FUN: 'rgl' function name
...: passed to 'rgl' function
expr: expression within which 'rgl' functions are called
quoted: whether expr is quoted
env: environment in which expr is evaluated
x: triangular 'mesh3d' object
length, lwd, col: normal vector length, size, and color

Examples



# Make sure the example does not run when compiling
# or check the package
if(FALSE) {

  volume <- array(0, dim = c(8,8,8))
  volume[4:5, 4:5, 4:5] <- 1
  mesh <- mesh_from_volume(volume, verbose = FALSE)

  rgl_view({

    rgl_call("shade3d", mesh, col = 3)
    rgl_plot_normals(mesh)

  })

}