provide mechanism to customize legend sizing; thx @jrangeles #9

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: sunburstR
 Type: Package
 Title: htmlwidget for Kerry Rodden d3.js sequence sunburst
-Version: 0.2.1
-Date: 2016-02-04
+Version: 0.2.2
+Date: 2016-03-08
 Authors@R: c(
       person(
         "Mike", "Bostock"
@@ -33,4 +33,4 @@ Imports:
 Suggests:
     knitr
 VignetteBuilder: knitr
-RoxygenNote: 4.1.1.9001
+RoxygenNote: 5.0.1

R/sunburst.R

@@ -14,7 +14,7 @@
 #' @param count \code{logical} to include count and total in the explanation.
 #' @param explanation JavaScript function to define a custom explanation for the center
 #'          of the sunburst.  Note, this will override \code{percent} and \code{count}.
-#' @param breadcrumb \code{list} to customize the breadcrumb trail.  This argument
+#' @param breadcrumb,legend \code{list} to customize the breadcrumb trail or legend.  This argument
 #'          should be in the form \code{list(w =, h =, s =, t = )} where
 #'          \code{w} is the width, \code{h} is the height, \code{s} is the spacing,
 #'          and \code{t} is the tail all in \code{px}.
@@ -34,6 +34,7 @@ sunburst <- function(
   , count =  FALSE
   , explanation = NULL
   , breadcrumb = list()
+  , legend = list()
   , width = NULL
   , height = NULL
 ) {
@@ -56,6 +57,7 @@ sunburst <- function(
       ,count = count
       ,explanation = explanation
       ,breadcrumb = breadcrumb
+      ,legend = legend
     )
   )
 

inst/htmlwidgets/lib/sequences/sequences.css

@@ -5,8 +5,7 @@
 
 .sunburst-sidebar {
   position: absolute;
-  width: 10%;
-  left: 90%;
+  right: 10px;
   top: 10px;
 }
 

inst/htmlwidgets/sunburst.js

@@ -16,7 +16,7 @@ HTMLWidgets.widget({
     d3.select(el).select(".sunburst-chart svg").remove();
 
     // Dimensions of sunburst.
-    var width = el.getBoundingClientRect().width;
+    var width = el.getBoundingClientRect().width - (x.options.legend.w ? x.options.legend.w : 75);
     var height = el.getBoundingClientRect().height - 70;
     var radius = Math.min(width, height) / 2;
 
@@ -313,6 +313,12 @@ HTMLWidgets.widget({
         w: 75, h: 30, s: 3, r: 3
       };
 
+      //  if legend is provided in the option, we will overwrite
+      //   with what is provided
+      Object.keys(x.options.legend).map(function(ky){
+        li[ky] = x.options.legend[ky];
+      });
+
       // remove if already drawn
       d3.select(el).select(".sunburst-legend svg").remove();