71 lines
1.1 KiB
Plaintext
71 lines
1.1 KiB
Plaintext
|
---
|
||
|
title: "Spark boxes"
|
||
|
output: rmarkdown::html_vignette
|
||
|
vignette: >
|
||
|
%\VignetteIndexEntry{spark-box}
|
||
|
%\VignetteEngine{knitr::rmarkdown}
|
||
|
%\VignetteEncoding{UTF-8}
|
||
|
---
|
||
|
|
||
|
```{r, include = 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%;"/>
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|