d3bubbles2: d3 Bubble Chart htmlwidget

library(devtools)
load_all()
document()
install()

library(d3bubbles2)


# BUBBLES
d <- read.csv("inst/data/soccer-teams-valuation.csv")
d3bubbles2(d, labelCol = "Equipo",valueCol = "ValorizaciÃ³n")

d3bubbles2(d, labelCol = "Equipo",valueCol = "ValorizaciÃ³n",
          opts = list(palette = "Pastel1"))

d3bubbles2(d, labelCol = "Equipo",valueCol = "ValorizaciÃ³n",
          opts = list(minSizeFactor = 10, maxSizeFactor = 20))
d3bubbles2(d, labelCol = "Equipo",valueCol = "ValorizaciÃ³n",
          opts = list(minSizeFactor = 10, maxSizeFactor = 33))

d3bubbles2(d, labelCol = "Equipo", valueCol = "ValorizaciÃ³n",  
          colorCol = "PaÃ?s")

d3bubbles2(d, valueCol = "ValorizaciÃ³n", labelCol = "Equipo", 
          colorCol = "PaÃ?s", tooltipCol = "PaÃ?s",
          opts = list(padding = 1, palette = "Pastel1", textSplitWidth = 50, textColor="#FF4343"))

d3bubbles2(d, valueCol = "ValorizaciÃ³n", labelCol = "Equipo",
          opts = list(padding = 50))

library(dpkgr)
t <- sampleData('CCN', asTabl = TRUE)
tabl <- t
data <- tabl$data
nms <- getCnames(tabl)
d3bubbles2(data, labelCol = nms[1], colorCol = nms[2], valueCol = nms[3],
          opts = NULL)