sparklines.R

library(sparkline)
library(formattable)
library(dplyr)

x = c(0, rep(1000, 5), rep(1000.000001, 5))

res <- mtcars |>
  mutate(summary = as.character(
    htmltools::as.tags(
      sparkline(x, type = "bar", 
                colorMap = c("white", rep("green", 6), rep("red", 4)))
    )
  )) |> 
  formattable() |> 
  formattable::as.htmlwidget()

res$dependencies <- c(
  res$dependencies,
  htmlwidgets:::widget_dependencies("sparkline", "sparkline")
)

res