fix ebars

helgasoft · Sep 18, 2023 · 2b80165 · 2b80165
1 parent 0f463ba
commit 2b80165
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/echarty.R b/R/echarty.R
@@ -841,7 +841,7 @@ ecr.ebars <- function(wt, encode=list(x=1, y=c(2,3,4)), hwidth=6, ...) {
   cntr <- function(x, typ) { 
     if (length(grep(typ, x))>0) {
       nme <- if (!is.null(args$name)) args$name else if (is.null(x$name)) wt$x$opts$yAxis$name else x$name
-      ds <- if (is.null(x$datasetIndex)) 0 else x$datasetIndex
+      ds <- if (is.null(x$datasetIndex)) 1 else x$datasetIndex
       dm <- if (is.null(x$dimensions)) NULL else x$dimensions
       dd <- if (is.null(x['data']$data)) NULL else x['data']$data
       list(nm=nme, ds=ds, dd=dd, dm=dm)
@@ -857,7 +857,7 @@ ecr.ebars <- function(wt, encode=list(x=1, y=c(2,3,4)), hwidth=6, ...) {
     # convert encode to numerical if character
     if (is.character(out)) {
       if (is.null(liss$dm)) {   # get dims from dataset
-        ds <- wt$x$opts$dataset[[liss$ds +1]]
+        ds <- wt$x$opts$dataset[[liss$ds]]
         if (!is.null(ds)) {
           if (!is.null(ds$dimensions))
             out <- which(ds$dimensions %in% out)

diff --git a/inst/js/renderers.js b/inst/js/renderers.js
@@ -19,7 +19,7 @@
 
 function riErrBars(params, api) {
   const group = { type: 'group', children: [] };
-  chart = get_e_charts(hwid);
+  chart = get_e_charts(echwid);
   halfWidth = api.style().lineDashOffset;
   let encode = params.encode;
   isHor = encode['x'].length > encode['y'].length;