我希望在R Shiny的datatable输出中添加一些工具提示。
我知道这个主题已经有一些问题了,但我找不到任何一个能与我的代码配合使用的(我对R/Shiny相当新)。问题相当简单。我有一个表格内部有一些颜色编码,我想在行名上添加工具提示,提供一些定义和解释。 因此,我创建了下面的代码,它生成了一个6行的虚拟表格,我想在第4、5和6行的行名上添加工具提示。
library(DT)
server <- function(input, output) {
output$output_table <- DT::renderDataTable({
table <- data.frame(row.names = c('rowname1','rowname2','rowname3','rowname4','rowname5','rowname6')
, value1=c(0,3.5,1,4,0.5,5)
, value2=c(0,1,0,1.1,1,1.4)
, index1=c(0,1,0.5,1,0,0)
, index2=c(0.5,0,0.5,1,1,1)
)
le_table = datatable(table
, colnames = NULL
, options = list(dom='t'
, ordering=FALSE
, columnDefs = list(list(targets = c(3,4), visible = FALSE)))) %>%
formatStyle(colnames(table[1]), colnames(table[3]),backgroundColor = styleEqual(c(0, 0.5, 1), c('red', 'orange', 'green'))) %>%
formatStyle(colnames(table[2]), colnames(table[4]),backgroundColor = styleEqual(c(0, 0.5, 1), c('red', 'orange', 'green')))
le_table
})
}
ui <- fluidPage(
DT::dataTableOutput("output_table")
)
shinyApp(ui = ui, server = server)
目前我完全迷失了方向,所以希望有人能够帮忙,非常感激。