make e_charts a method so accepts Node fixes #207

DESCRIPTION

@@ -28,7 +28,8 @@ Suggests:
     testthat,
     knitr,
     rmarkdown,
-    covr
+    covr,
+    data.tree
 RoxygenNote: 7.1.1.9000
 URL: https://echarts4r.john-coene.com/
 BugReports: https://github.com/JohnCoene/echarts4r/issues/

NAMESPACE

@@ -12,6 +12,8 @@ S3method(e_boxplot,echarts4r)
 S3method(e_boxplot,echarts4rProxy)
 S3method(e_candle,echarts4r)
 S3method(e_candle,echarts4rProxy)
+S3method(e_charts,Node)
+S3method(e_charts,default)
 S3method(e_correlations,echarts4r)
 S3method(e_correlations,echarts4rProxy)
 S3method(e_density,echarts4r)

R/echarts4r.R

@@ -73,7 +73,12 @@ echarts_build <- function(e) {
 #' @name init
 #' @export
 e_charts <- function(data, x, width = NULL, height = NULL, elementId = NULL, dispose = TRUE,
-                     draw = TRUE, renderer = "canvas", timeline = FALSE, ..., reorder = TRUE) {
+  draw = TRUE, renderer = "canvas", timeline = FALSE, ..., reorder = TRUE) UseMethod("e_charts")
+
+#' @rdname init
+#' @export
+e_charts.default <- function(data, x, width = NULL, height = NULL, elementId = NULL, dispose = TRUE,
+  draw = TRUE, renderer = "canvas", timeline = FALSE, ..., reorder = TRUE) {
   xmap <- NULL
 
   if (!missing(x)) {
@@ -200,10 +205,25 @@ e_charts <- function(data, x, width = NULL, height = NULL, elementId = NULL, dis
   return(widget)
 }
 
+#' @rdname init
+#' @method e_charts Node
+#' @export
+e_charts.Node <- function(data, x, width = NULL, height = NULL, elementId = NULL, dispose = TRUE,
+  draw = TRUE, renderer = "canvas", timeline = FALSE, ..., reorder = TRUE){
+
+  check_installed("data.tree")
+
+  json <- data.tree::ToListExplicit(data, unname=TRUE)
+  data <- json$children[[1]]$children
+
+  e_charts(data, x, width = width, height = height, elementId = elementId, dispose = dispose,
+    draw = draw, renderer = renderer, timeline = timeline, ..., reorder = reorder)
+}
+
 #' @rdname init
 #' @export
 e_charts_ <- function(data, x = NULL, width = NULL, height = NULL, elementId = NULL, dispose = TRUE,
-                      draw = TRUE, renderer = "canvas", timeline = FALSE, ..., reorder = TRUE) {
+  draw = TRUE, renderer = "canvas", timeline = FALSE, ..., reorder = TRUE) {
   xmap <- x
 
   # forward options using x

R/utils.R

@@ -717,3 +717,10 @@ globalVariables(c("x", "e", ".", "acc", "epoch", "loss", "size", "val_acc", "val
   }
   return(list(max = max, min = min))
 }
+
+check_installed <- function(pkg){
+  has_it <- base::requireNamespace(pkg, quietly = TRUE)
+
+  if(!has_it)
+    stop(sprintf("This function requires the package {%s}", pkg), call. = FALSE)
+}