---
title: "Create boxes with sparklines"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Create boxes with sparklines}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
options(rmarkdown.html_vignette.check_title = FALSE)
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

```{r setup}
library(apexcharter)

spark_data <- data.frame(
  date = Sys.Date() + 1:20,
  var1 = round(rnorm(20, 50, 10)),
  var2 = round(rnorm(20, 50, 10)),
  var3 = round(rnorm(20, 50, 10))
)
```

Create boxes with a sparkline to display a specific value:

```{r}
spark_box(
  data = spark_data,
  title = mean(spark_data$var1), 
  subtitle = "Variable 1"
)
```


With more styles :

```{r}
spark_box(
  data = spark_data,
  title = mean(spark_data$var1), 
  subtitle = "Variable 1",
  color = "#FFF", background = "#2E93fA",
  title_style = list(color = "#FFF"),
  subtitle_style = list(color = "#FFF")
)
```


You can also use spark boxes in Shiny application, use code to launch an example :

```{r, eval=FALSE}
run_sparkbox_demo()
```

<img src="figures/spark-box.png" alt="spark-box" style="width:100%;"/>