chartjs icon indicating copy to clipboard operation
chartjs copied to clipboard

ChartJS

Open mimeides2 opened this issue 6 years ago • 1 comments

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)

```. 

mimeides2 avatar Aug 02 '18 22:08 mimeides2

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

Tutuchan avatar Aug 14 '18 08:08 Tutuchan