Add "svg" and "function" marks

NAMESPACE

@@ -14,6 +14,7 @@ export(mark_dot)
 export(mark_dotX)
 export(mark_dotY)
 export(mark_frame)
+export(mark_function)
 export(mark_line)
 export(mark_lineX)
 export(mark_lineY)
@@ -23,6 +24,7 @@ export(mark_rectX)
 export(mark_rectY)
 export(mark_ruleX)
 export(mark_ruleY)
+export(mark_svg)
 export(mark_text)
 export(mark_textX)
 export(mark_textY)

R/marks.R

@@ -266,6 +266,29 @@ mark_frame <- function(g, fill = "none", ...) {
     mark_("frame", g, mark_channels = NULL, fill = fill, ...)
 }
 
+#' Add an SVG element to an obsplot
+#'
+#' @param g an obsplot object
+#' @param svg SVG to add, as a character string
+#' @param ... options passed to define the mark
+#' @export
+
+mark_svg <- function(g, svg, ...) {
+    f_code <- paste0("() => svg`", svg, "`")
+    f <- htmlwidgets::JS(f_code)
+    mark_function(g, f)
+}
+
+#' Add a render function mark to an obsplot
+#'
+#' @param g an obsplot object
+#' @param f render function, defined with `htmlwidgets::JS()`
+#' @param ... options passed to define the mark
+#' @export
+
+mark_function <- function(g, f, ...) {
+    mark_("function", g, mark_channels = NULL, fun = f, ...)
+}
 
 mark_ <- function(mark_type, g, mark_channels, ...) {
 

srcjs/modules/plot.js

@@ -63,11 +63,16 @@ export class Obsplot {
 
         return this.marks.map((mark) => {
 
+            // Render function mark
+            if (["function"].includes(mark.type)) {
+                return mark.opts.fun;
+            }
+
             const mark_fun = Plot[mark.type];
 
             // Decorations mark
             if (["frame"].includes(mark.type)) {
-                return mark_fun.call(null, mark.opts)
+                return mark_fun.call(null, mark.opts);
             }
 
             // Mark data