---
output:
html_document:
code_folding: hide
---
```{r, results='asis', warning=FALSE, message=FALSE}
library(barchartraceR2D3)
library(dplyr)
library(tidyr)
library(stringr)
library(r2d3)
inputdata <- INPUTDATAFRAME
gd3<-barchartrace_r2d3(
data=inputdata,
name="iBarchart.name",date="iBarchart.date",value="iBarchart.value",date_label="iBarchart.label_date",colour="iBarchart.colour.by",
cumulative=iBarchart.cumulative,
title="iBarchart.title",
subtitle="iBarchart.subtitle",
caption="iBarchart.caption",
css=system.file("www/styles.css",package="barchartraceR2D3"),script=system.file("www/js/barchartrace.js",package="barchartraceR2D3"),
width=800,height=800,
duration = 200,
margin=c(80,10,0,0)
)
gd3