如何将 x 轴值添加到迷你图条形图工具提示中？

如何解决如何将 x 轴值添加到迷你图条形图工具提示中？

我希望工具提示说明 x 轴值是什么，在本例中为 raw_data$date 中的日期。我知道它只是采用数据框的顺序，因为您不能像在“线”型迷你图中那样指定 xvalue。我对 JS 的了解不够，无法让 range_map 正常工作（如果这就是解决方案？）。

如果必须将其硬编码为工具提示格式的文本，那很好 - 只是不确定如何。

library(shiny)
library(dplyr)

ui <- fluidPage(
    
    htmlwidgets::getDependency('sparkline'),DT::dataTableOutput("table")
    
)

server <- function(input,output) {
    
    raw_data <- data.frame(date = 2000:2021,value = sample(100:500,22))
    
    data <- raw_data %>%
        # Create the sparkline
        summarise("value" = sparkline::spk_chr(c(value),type = "bar"))
    
    output$table <- DT::renderDataTable({
        
        cb <- htmlwidgets::JS('function(){debugger;HTMLWidgets.staticRender();}')
        
        DT::datatable(data = data,escape = FALSE,options = list(drawCallback = cb))
    })
    
}

shinyApp(ui,server)