subsetSlider(subsets, labels = names(subsets), fullset = Reduce(union, subsets), subscenes = currentSubscene3d(), prefixes = "", accumulate = FALSE, ...)
subsetSetter(subsets, subscenes = currentSubscene3d(), prefixes = "",
fullset = Reduce(union, subsets), accumulate = FALSE)
clipplaneSlider(a=NULL, b=NULL, c=NULL, d=NULL, plane = 1, clipplaneids, prefixes = "", labels = signif(values[,1],3), ...)
toggleButton(subset, subscenes = currentSubscene3d(), prefixes = "", label = deparse(substitute(subset)), id = paste0(basename(tempfile("input"))), name = id)NULL,
numeric labels will be shown.fullset
will not be touched.TRUE, the subsets will accumulate (by union)
as the value increases.id of the input control that will be generated.propertySlider.NULL
to hold the parameter constant.subsetSetter returns a length-one character vector
of class "propertySetter".The other functions
use cat to write their output and invisibly return the
id of the control that was generated.
subsetSlider and clipplaneSlider generate an HTML5 slider
control with a text label. To display no text, set the labels to blanks
in the ... argument.subsetSetter is a low-level function to produce the Javascript
code used by subsetSlider. This code will not touch objects in the
subscene if they
are not in fullset. fullset defaults to the union of
all the object ids mentioned in subsets, so by default if an id is
not mentioned in one of the subsets, it will not be controlled by the slider.
toggleButton generates a button that toggles the presence
of objects within a subscene. If the first entry in subset
is in the subscene, all are deleted, otherwise all are added.
clipplaneSlider allows a clipping plane to be moved to a sequence
of positions. Any non-NULL entries among a, b, c, d should be
vectors; the slider will set those parameters of the selected clipping
plane to corresponding values as the slider is moved.
writeWebGL. See propertySlider and propertySetter
for lower level, more flexible functions.
subsets <- list(1:3, 1:4, 1:5)
subsetSlider(subsets = subsets)
toggleButton(1:3)
clipplaneSlider(d = seq(0, 1, len=20), clipplaneid = 123)
Run the code above in your browser using DataLab