waffle as_rcdimple separate so can source

as_rcdimple.R

as_rcdimple <- function( wf, height = NULL, width = NULL ) {
  
  # not import since optional dependency
  #  check here to see if rcdimple is available
  if(!requireNamespace("rcdimple", quietly=TRUE)) stop("please devtools::install_github('timelyportfolio/rcdimple')", call. = FALSE)
  
  # let ggplot2 do the work and build the chart
  
  
  # let ggplot2 do the work and build the chart
  gb <- ggplot_build(wf)
  dimp <- rcdimple::dimple(
    data.frame(
      group = wf$scales$scales[[1]]$labels[
        match(wf$data$value,unique(wf$data$value))
        ]
      ,gb$data[[1]]
      ,stringsAsFactors = F
    )
    , y~x
    , type = "bar"
    , groups = "group"
    , width = width
    , height = height
    , xAxis = list( type = "addCategoryAxis", title  = "" )
    , yAxis = list( type = "addCategoryAxis", title = "" )
    , defaultColors = unique( na.omit(gb$data[[1]])$fill )
    , title = list( text = wf$labels$title )
    , tasks = list(
      JS(
        'function(){
            this.widgetDimple[0].axes.forEach(function(ax){
              ax.shapes.remove()
            })
          }'
      )
    )
  )
  return(dimp)
}