ChartJS

[mimeides2]

Hi, I want to use your chartjs package in a flexdashboard but no interactive chart when I test your code

Do you know why ? Thanks a lot Mimeides

---

title: "Flex Dashboard" output: flexdashboard::flex_dashboard: orientation: columns vertical_layout: fill horizontal_layout: fill

# Load packages and initialize data here
library(flexdashboard)
library(chartjs)
library(htmlwidgets)

Bars Chart

Bar Chart

chartjs() %>%
  cjsBar(labels = LETTERS[1:10]) %>%
  cjsSeries(data = c(abs(c(rnorm(8))), NA, 0.5), label = "Series 1") %>%
  cjsSeries(data = abs(c(rnorm(10))), label = "Series 2") %>%
  cjsSeries(data = abs(c(rnorm(10))), label = "Series 3") %>% 
  cjsLegend() %>%
  cjsTitle("Bar Chart", fontSize = 30)

Line Chart

Line Chart

chartjs() %>%
  cjsLine(labels = LETTERS[1:10]) %>%
  cjsSeries(data = c(abs(c(rnorm(8))), NA, 0.5), label = "Series 1") %>%
  cjsSeries(data = abs(c(rnorm(10))), label = "Series 2") %>%
  cjsSeries(data = abs(c(rnorm(10))), label = "Series 3") %>% 
  cjsLegend() %>% 
  cjsTitle("Line Chart", fontSize = 30)

Pie Chart

Pie Chart

chartjs() %>%
  cjsPie(labels = LETTERS[1:4]) %>%
  cjsSeries(data = abs(c(rnorm(4)))) %>% 
  cjsLegend() %>%
  cjsTitle("Pie Chart", fontSize = 30)

Doughnut Chart

Doughnut Chart

chartjs() %>%
  cjsDoughnut(labels = LETTERS[1:4]) %>%
  cjsSeries(data = abs(c(rnorm(4)))) %>% 
  cjsLegend() %>%
  cjsTitle("Doughnut Chart", fontSize = 30)

Radar Chart

Radar Chart

chartjs() %>%
  cjsRadar(labels = c("Strength", "Perception", "Endurance", "Charisma", "Intelligence", "Agility", "Luck")) %>%
  cjsSeries(data = c(10, 4, 10, 2, 4, 6, 8)) %>% 
  cjsSeries(data = c(4, 8, 5, 8, 7, 7, 5)) %>% 
  cjsEditScale(axis = NULL, ticks = list(beginAtZero = TRUE)) %>% 
  cjsLegend() %>%
  cjsTitle("Radar Chart", fontSize = 30)

Polar Area

chartjs()  %>%
  cjsPolar(labels = c("Strength", "Perception", "Endurance", "Charisma", "Intelligence", "Agility")) %>%
  cjsSeries(data = c(10, 4, 10, 2, 4, 6)) %>% 
  cjsEditScale(axis = NULL, ticks = list(beginAtZero = TRUE)) %>%
  cjsLegend() %>%
  cjsTitle("Polar Area", fontSize = 30)

```. 

[Tutuchan]

Hello, It is working on my side, which versions of flexdashboard, chartjs and rmarkdown are you using ?