edded v_event()

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: vchartr
 Title: Interactive Charts with the JavaScript 'VChart' Library
-Version: 0.1.1
+Version: 0.1.2
 Authors@R: c(
   person("Victor", "Perrier", email = "[email protected]", role = c("aut", "cre")),
   person("Fanny", "Meyer", role = "aut"))

NAMESPACE

@@ -14,6 +14,7 @@ export(v_area)
 export(v_bar)
 export(v_boxplot)
 export(v_circlepacking)
+export(v_event)
 export(v_facet_wrap)
 export(v_gauge)
 export(v_heatmap)

NEWS.md

@@ -1,3 +1,7 @@
+# vchartr 0.1.2
+
+* Added `v_event()` to register events on chart.
+
 # vchartr 0.1.1
 
 * Updated @visactor/vchart to 1.12.8 (https://github.com/VisActor/VChart/releases).

R/events.R

@@ -0,0 +1,40 @@
+
+#' VChart events
+#'
+#' @param vc A chart initialized with [vchart()].
+#' @param name Name of the event, e.g. `"click"`.
+#' @param params Parameters to specifically monitor events in a certain part of the chart.
+#' @param fun JavaScript function executed when the event occurs.
+#' @param ... Not used.
+#'
+#' @return A [vchart()] `htmlwidget` object.
+#' @export
+#'
+#' @example examples/events.R
+v_event <- function(vc,
+                    name,
+                    params,
+                    fun,
+                    ...) {
+  if (is.null(vc$x$events)) {
+    vc$x$events <- list(
+      list(
+        name = name,
+        params = params,
+        fun = fun
+      )
+    )
+  } else {
+    vc$x$events <- append(
+      vc$x$events, 
+      list(
+        list(
+          name = name,
+          params = params,
+          fun = fun
+        )
+      )
+    )
+  }
+  return(vc)
+}

R/select.R

@@ -1,10 +1,8 @@
 
 
-
 v_default_select <- function(vc,
                              mapdata,
                              data_id,
-                             fun_values = identity,
                              ...) {
   mapdata <- split(mapdata, as.character(mapdata$select))
   vc$x$select <- list(

examples/events.R

@@ -0,0 +1,16 @@
+
+library(vchartr)
+
+vchart(top_generation) %>% 
+  v_bar(aes(country, electricity_generation)) %>% 
+  v_event(
+    name = "click",
+    params = list(level = "mark", type = "bar"),
+    fun = JS(
+      "e => {",
+      " console.log(e);",
+      " alert(e.datum.x);",
+      "}"
+    )
+  )
+

srcjs/widgets/vchart.js

@@ -221,6 +221,12 @@ HTMLWidgets.widget({
           //vchart.setCurrentTheme(x.theme);
         }
 
+        if (x.hasOwnProperty("events")) {
+          for (let i = 0; i < x.events.length; i++) {
+            vchart.on(x.events[i].name, x.events[i].params, x.events[i].fun);
+          }
+        }
+
         if (x.hasOwnProperty("select")) {
           var selectConfig = x.select.config;
           selectConfig.select = "#" + el.id + "_select";