22 lines
336 B
R
22 lines
336 B
R
|
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))
|
||
|
)
|
||
|
|
||
|
spark_box(
|
||
|
data = spark_data,
|
||
|
title = mean(spark_data$var1),
|
||
|
subtitle = "Variable 1"
|
||
|
)
|
||
|
|
||
|
|
||
|
# In Shiny
|
||
|
if (interactive()) {
|
||
|
run_sparkbox_demo()
|
||
|
}
|
||
|
|