如何解决如何从迷你图工具提示中的日期中删除逗号?
我想从闪烁的工具提示中的日期中删除逗号,但我需要将它保留在值中。 我不完全理解 jQuery Sparkline 格式。
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),xvalues = date,tooltipformat = '{{x}}: {{y}}'))
output$table <- DT::renderDataTable({
cb <- htmlwidgets::JS('function(){debugger;HTMLWidgets.staticRender();}')
DT::datatable(data = data,escape = FALSE,options = list(drawCallback = cb))
})
}
shinyApp(ui,server)
解决方法
如定义的 here,您可以将 numberDigitGroupSep
设置为空字符串:
data <- raw_data %>%
# Create the sparkline
summarise(
"value" = sparkline::spk_chr(
c(value),numberDigitGroupSep = "",xvalues = date,tooltipFormat = '{{x}}: {{y}}'
)
)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。