asRow: Convenience functions for rgl HTML layouts

Description Usage Arguments Details Value Author(s) See Also Examples

View source: R/rglwidget.R

Description

The asRow function arranges objects in a row in the display; the getWidgetId function extracts the HTML element ID from an HTML widget.

Usage

1
2
asRow(..., last = NA, height = NULL, colsize = 1)
getWidgetId(widget)

Arguments

...

Either a single "combineWidgets" object produced by asRow or a %>% pipe of rgl objects, or several objects intended for rearrangement.

last

If not NA, the number of objects from ... that are to be arranged in a row. Earlier ones will remain in a column.

height

An optional height for the resulting row. This is normally specified in pixels, but will be rescaled as necessary to fit the display.

colsize

A vector of relative widths for the columns in the row.

widget

A single HTML widget from which to extract the HTML element ID.

Details

asRow produces a "combineWidgets" object which is a single column whose last element is another "combineWidgets" object which is a single row.

If n objects are given as input and last is given a value less than n, the first n - last objects will be displayed in a column above the row containing the last objects.

Value

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.

Author(s)

Duncan Murdoch

See Also

pipe for the %>% operator.

Examples

 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

rgl documentation built on Feb. 1, 2021, 3:01 a.m.