chartjs(mtcars[1:6,], mpg, qsec) %>% 
  cjsPie