clipplaneControl: Sets attributes of a clipping plane

View source: R/rglcontroller.R

clipplaneControlR Documentation

Sets attributes of a clipping plane

Description

This is a function to produce actions in a web display. A playwidget or Shiny input control (e.g. a sliderInput control) sets a value which controls attributes of one or more clipping planes.

Usage

clipplaneControl(a = NULL, b = NULL, c = NULL, d = NULL, 
                 plane = 1, clipplaneids = tagged3d(tag), tag, ...)

Arguments

a, b, c, d

Parameter values for the clipping planes.

plane

Which plane in the clipplane object?

clipplaneids

The id of the clipplane object.

tag

Select clipplane with matching tag. Ignored if clipplaneid is specified.

...

Other parameters passed to propertyControl.

Value

A list of class "rglControl" of cleaned up parameter values, to be used in an RGL widget.

Author(s)

Duncan Murdoch

Examples

  open3d()
  saveopts <- options(rgl.useNULL = TRUE)
  xyz <- matrix(rnorm(300), ncol = 3)
  id <- plot3d(xyz, type="s", col = "blue", zlim = c(-3,3))["clipplanes"]
  dvals <- c(3, -3)
  widget <- rglwidget() %>%
    playwidget(clipplaneControl(d = dvals, clipplaneids = id),
               start = 0, stop = 1, step = 0.01,
               rate = 0.5)
  if (interactive() || in_pkgdown_example())
    widget
  options(saveopts)

rgl documentation built on July 9, 2023, 7:36 p.m.