Scene management

Clear shapes, lights, bbox

clear3d( type = c("shapes", "bboxdeco", "material"), defaults, subscene = 0 ) 
pop3d( type = "shapes", id = 0, tag = NULL)
ids3d( type = "shapes", subscene = NA, tags = FALSE )

Arguments

type

Select subtype(s):

"shapes"

shape stack

"lights"

light stack

"bboxdeco"

bounding box

"userviewpoint"

user viewpoint

"modelviewpoint"

model viewpoint

"material"

material properties

"background"

scene background

"subscene"

subscene list

"all"

all of the above

defaults

default values to use after clearing

subscene

which subscene to work with. NA means the current one, 0 means the whole scene

id

vector of ID numbers of items to remove

tag

override id with objects matching these tag material properties

tags

logical; whether to return tag column.

Details

RGL holds several lists of objects in each scene. There are lists for shapes, lights, bounding box decorations, subscenes, etc. clear3d clears the specified stack, or restores the defaults for the bounding box (not visible) or viewpoint. With id = 0 pop3d removes the last added node on the list (except for subscenes: there it removes the active subscene). The id argument may be used to specify arbitrary item(s) to remove; if id != 0, the type argument is ignored.

clear3d may also be used to clear material properties back to their defaults.

clear3d has an optional defaults argument, which defaults to r3dDefaults. Only the materials component of this argument is currently used by clear3d.

ids3d returns a dataframe containing the IDs in the currently active subscene by default, or a specified subscene, or if subscene = 0, in the whole rgl window along with an indicator of their type and if tags = TRUE, the tag value for each.

Note that clearing the light stack leaves the scene in darkness; it should normally be followed by a call to light3d.

See also

rgl, bbox3d, light3d, open3d to open a new window.

Examples

  x <- rnorm(100)
  y <- rnorm(100)
  z <- rnorm(100)
  p <- plot3d(x, y, z, type = 's', tag = "plot")
  ids3d()
#>     id    type
#> 1 1669 spheres
#> 2 1671    text
#> 3 1672    text
#> 4 1673    text
  lines3d(x, y, z)


  ids3d(tags = TRUE)
#>     id      type  tag
#> 1 1669   spheres plot
#> 2 1671      text plot
#> 3 1672      text plot
#> 4 1673      text plot
#> 5 1674 linestrip     
  if (interactive() && !rgl.useNULL() && !in_pkgdown_example()) {
    readline("Hit enter to change spheres")
    pop3d(id = p["data"])
    spheres3d(x, y, z, col = "red", radius = 1/5)
    box3d()
  }