asRow function arranges objects in a row in the display;
getWidgetId function extracts the HTML element ID
from an HTML widget.
Either a single
An optional height for the resulting row. This is normally specified in pixels, but will be rescaled as necessary to fit the display.
A vector of relative widths for the columns in the row.
A single HTML widget from which to extract the HTML element ID.
asRow produces a
"combineWidgets" object which
is a single column whose last element is another
"combineWidgets" object which is a single row.
n objects are given as input and
last is given a value
n, the first
n - last objects will be displayed
in a column above the row containing the
asRow returns a single
"combineWidgets" object suitable for display or nesting
within a more complicated display.
getWidgetId returns a character string containing the
HTML element ID of the widget.
pipe for the
1 2 3 4 5 6 7 8 9 10 11 12
library(crosstalk) sd <- SharedData$new(mtcars) ids <- plot3d(sd$origData(), col = mtcars$cyl, type = "s") # Copy the key and group from existing shared data rglsd <- rglShared(ids["data"], key = sd$key(), group = sd$groupName()) w <- rglwidget(shared = rglsd) %>% asRow("Mouse mode: ", rglMouse(getWidgetId(.)), "Subset: ", filter_checkbox("cylinderselector", "Cylinders", sd, ~ cyl, inline = TRUE), last = 4, colsize = c(1,2,1,2), height = 60) if (interactive()) w
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.