toggleWidget: An HTML widget to toggle display of elements of a scene.

Description

This function produces a button in an HTML scene that will toggle the display of items in the scene.

Usage

toggleWidget(sceneId, 
             ids = integer(), hidden = integer(),
             subscenes = NULL, 
             label = deparse(substitute(ids)), 
             ...)

Arguments

sceneId

The HTML id of the rgl scene being controlled, or an object as in playwidget.

ids, hidden

The rgl id numbers of the objects to toggle. Those in ids are initially shown; those in hidden are initially hidden.

subscenes

The subscenes in which to toggle the objects.

label

The label to put on the button.

…

Additional arguments to pass to playwidget.

Value

A widget suitable for use in an Rmarkdown-generated web page, or elsewhere.

Details

Like playwidget, this function is designed to work within the htmlwidgets framework. If the value is printed, the button will be inserted into the output.

It is also designed to work with magrittr-style pipes: the result of rglwidget or other widgets can be piped into it to add it to a display. It can also appear first in the pipeline, if sceneId is set to NA.

Examples

Run this code

# NOT RUN {
theplot <- plot3d(rnorm(100), rnorm(100), rnorm(100), col = "red")
widget <- rglwidget(height = 300, width = 300) %>%
  toggleWidget(theplot["data"], 
               hidden = theplot[c("xlab", "ylab", "zlab")], 
               label = "Points")
if (interactive())
  widget
# }