问题描述
我希望工具提示说明 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)
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)