block by timelyportfolio f15bd82cb5b4466f868cd3ed6798d611

flubberized sunburst to icicle (by level)

Full Screen

Code in R

library(sunburstR)
library(htmltools)

# d3 source tree from Mike Bostock
# https://gist.githubusercontent.com/mbostock/8fe6fa6ed1fa976e5dd76cfa4d816fec/
d3_src <- read.csv(
  "https://gist.githubusercontent.com/mbostock/8fe6fa6ed1fa976e5dd76cfa4d816fec/raw/122aa364ef1b0134455654f446e15dbfd1c95f86/d3.csv",
  stringsAsFactors = FALSE
)

d3_tree <- sunburstR:::csv_to_hier(
  d3_src[,2:1],
  delim = "/"
)

sb <- sunburst(d3_tree, withD3 = TRUE)
sb$x$tasks <- list(htmlwidgets::JS("
function(){
  var chart = this.instance.chart;
  var data = this.instance.json;
  var el = this.el;
  var svg = d3.select(el).select('.sunburst-chart>svg');

  var btn = d3.select('#convert-btn')
  btn.on('click.tree', function() {
    var paths = svg.selectAll('path');
    paths.each(function(d,i) {
    debugger
      var interpolate = flubber.interpolate(
        d3.select(this).attr('d'),
        [
          [d.x0*90, Math.pow(d.y0,1/2)],
          [d.x0*90, Math.pow(d.y1,1/2)],
          [d.x1*90, Math.pow(d.y1,1/2)],
          [d.x1*90, Math.pow(d.y0,1/2)],
          [d.x0*90, Math.pow(d.y0,1/2)]
        ]
      );
      d3.select(this)
        .transition()
        .delay(i * 20)
        .duration(200)
        .attr('transform','translate(-400,-200)')
        .attrTween('d', function(d) {return interpolate});
    })
  })
}
"))



browsable(
  tagList(
    tags$head(tags$script(src="https://unpkg.com/flubber")),
    tags$button(id='convert-btn',"icicl-ize"),
    sb
  )
)

forked from timelyportfolio‘s block: flubberized sunburst

forked from timelyportfolio‘s block: flubberized sunburst to icicle

forked from timelyportfolio‘s block: flubberized sunburst to icicle (faster)