Use dc.js code directly in dcr. #r #shiny #dcr
library(dcr)
dcr <- dcr(mtcars)
chart <- dcrchart(type = "rowChart", id = "chart1", dimension = "cyl",
reduce = reduceCount(), width = 400, height = 250,
colors = dc_code("d3.scale.category10()"))
dcr + chart