export shared_data() helper

Author: cpsievert

NAMESPACE

@@ -176,6 +176,7 @@ export(renderPlotly)
 export(schema)
 export(select)
 export(select_)
+export(shared_data)
 export(showRGB)
 export(signup)
 export(slice)

R/plotly_data.R

@@ -88,6 +88,17 @@ print.plotly_data <- function(x, ...) {
   x
 }
 
+#' Shared data
+#' 
+#' This is simply a wrapper around `crosstalk::SharedData$new()` to make it easier
+#' to use and explain conceptually.
+#' 
+#' @param ... arguments passed to crosstalk::SharedData$new()
+#' @export
+#' @return An object of class [crosstalk::SharedData]
+shared_data <- function(...) {
+  crosstalk::SharedData$new(...)
+}
 
 #' @rdname plotly_data
 #' @export