Description Usage Arguments Details Value Author(s) References Examples
The crosstalk package provides a way for different parts of an interactive display to communicate about datasets, using “shared data” objects. When selection or filtering is performed in one view, the result is mirrored in all other views.
This function allows vertices of rgl objects to be treated as shared data.
1 2 3 4 5 6 7 |
id |
An existing rgl id. |
key |
Optional unique labels to apply to each vertex. If missing, numerical keys will be used. |
group |
Optional name of the shared group to which this data belongs. If missing, a random name will be generated. |
deselectedFade, deselectedColor |
Appearance of points that are not selected. See Details. |
selectedColor |
Appearance of points that are selected. |
selectedIgnoreNone |
If no points are selected, should the points be shown
in their original colors ( |
filteredFade, filteredColor |
Appearance of points that have been filtered out. |
Some functions which normally work on dataframe-like datasets will accept shared data objects in their place.
If a selection is in progress, the alpha value for
unselected points is multiplied by deselectedFade
.
If deselectedColor
is NULL
, the color is left
as originally specified; if not, the point is changed to
the color given by deselectedColor
.
If no points have been selected, then by default points
are shown in their original colors. However, if
selectedIgnoreNone = FALSE
, all points are displayed
as if unselected.
The selectedColor
argument is similarly used to
change the color (or not) of selected points, and filteredFade
and filteredColor
are used for points that
have been filtered out of the display.
An object of class "SharedData"
which
contains the x, y and z coordinates of the rgl object
with the given id
.
Duncan Murdoch
https://rstudio.github.io/crosstalk/index.html
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | save <- options(rgl.useNULL = TRUE)
open3d()
x <- sort(rnorm(100))
y <- rnorm(100)
z <- rnorm(100) + atan2(x, y)
ids <- plot3d(x, y, z, col = rainbow(100))
# The data will be selected and filtered, not the axes.
sharedData <- rglShared(ids["data"])
# Also add some labels that are only displayed
# when points are selected
sharedLabel <- rglShared(text3d(x, y, z, text = 1:100,
adj = -0.5),
group = sharedData$groupName(),
deselectedFade = 0,
selectedIgnoreNone = FALSE)
if (interactive())
crosstalk::filter_slider("x", "x", sharedData, ~x) %>%
rglwidget(shared = list(sharedData, sharedLabel), controller = .) %>%
rglMouse()
options(save)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.