Nothing
options(rmarkdown.html_vignette.check_title = FALSE) knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
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:
spark_box( data = spark_data, title = mean(spark_data$var1), subtitle = "Variable 1" )
With more styles :
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 :
run_sparkbox_demo()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.