take bindto out of R

Author: sbfnk

R/R2C3.R

@@ -5,14 +5,12 @@
 #' @import htmlwidgets
 #'
 #' @export
-R2C3 <- function(message, width = NULL, height = NULL) {
+R2C3 <- function(data, width = NULL, height = NULL) {
 
     # forward options using x
 
-    message[["bindto"]] <- "#chart"
-
     x = list(
-    message = message
+    data = data
         )
 
   # create widget

inst/htmlwidgets/R2C3.js

@@ -13,6 +13,8 @@ HTMLWidgets.widget({
 
   renderValue: function(el, x, instance) {
 
+      x.message.bindto = "#" + el.id;
+      
       var chart = c3.generate(x.message);
   },