Sparkline in DT

app.R

library(shiny)
library(DT)
library(sparkline)
library(tidyverse)

ui <- fluidPage(
    titlePanel("Sparkline in DT"),
    sidebarLayout(NULL,
        mainPanel(
           dataTableOutput("table_with_sparkline")
        )
    )
)

server <- function(input, output) {
    output$table_with_sparkline <- renderDataTable({
        df <- iris %>% 
            group_by(Species) %>%
            summarise(Median = median(Sepal.Length), IQR = IQR(Sepal.Length))
        
        my_sparkline_box <- function(x) {
            sparkline(x, type = "box", 
                      chartRangeMin = min(iris$Sepal.Length), 
                      chartRangeMax = max(iris$Sepal.Length))
        }
        
        df$Sparkline <- iris$Sepal.Length %>%
            split(iris$Species) %>%
            map(my_sparkline_box) %>%
            map(htmltools::as.tags) %>%
            map_chr(as.character)

        draw_callback <- htmlwidgets::JS("function(){HTMLWidgets.staticRender()}")
        dt_options <- list(fnDrawCallback = draw_callback)
        datatable(df, options = dt_options, escape = FALSE) %>%
            spk_add_deps()
    })
}

shinyApp(ui = ui, server = server)

library(DT)
library(tidyverse)

df <- iris %>%
  group_by(Species) %>%
  summarise(Median = median(Sepal.Length), IQR = IQR(Sepal.Length))
datatable(df)


library(sparkline)

sparkline(iris$Sepal.Length, type = "box")


df$Sparkline <- iris$Sepal.Length %>%
  split(iris$Species) %>%
  map(~ sparkline(.x, type = "box")) %>%
  map(htmltools::as.tags) %>%
  map_chr(as.character)

datatable(df, escape = FALSE) %>% spk_add_deps()


my_sparkline_box <- function(x) {
  sparkline(x, type = "box", 
            chartRangeMin = min(iris$Sepal.Length), 
            chartRangeMax = max(iris$Sepal.Length))
}

df$Sparkline <- iris$Sepal.Length %>%
  split(iris$Species) %>%
  map(my_sparkline_box) %>%
  map(htmltools::as.tags) %>%
  map_chr(as.character)

datatable(df, escape = FALSE) %>% spk_add_deps()