我有一个代码,它有多个fluidRows,每个fluidrow包含多个可折叠的box元素,这些元素是默认折叠的, 我担心的是在闪亮的应用程序上折叠框时显示悬停,描绘“你可以打开框来查看数据,还可以看到有关数据的简短说明”
使用BSTooltip功能,我可以在框内的数据上显示悬停,但不能在可折叠框上显示。
这是一项主要功能。
请帮忙。
fluidRow(
box(
id = "djc",
title = "BY SEGMENT",
width = 12,
status = "primary",
solidHeader = TRUE,
align='center',
collapsible = TRUE,
collapsed = TRUE,
DT::dataTableOutput("tab_PF2")
),
bsTooltip("djc", "This is a Table which talks about all the segments and there data shift and book shift respectfully", placement = "bottom", trigger = "hover",
options = NULL)
))
上面是一个流畅的行,我可以在其中描述数据的工具提示。
答案 0 :(得分:0)
不确定您的确切用例,但您可以使用JavaScript
向所有折叠按钮添加title
属性。
将此代码添加到ui
:
tags$head(tags$script("
$( document ).ready(function() {
$('.btn.btn-box-tool').attr('title', 'hovering info');
});
"))
答案 1 :(得分:0)
我能够通过在不在列名上的列上应用j来实现您的问题。
library(shiny)
shinyApp(
ui = fluidPage(
DT::dataTableOutput("mtcarsTable")
),
server = function(input, output) {
output$mtcarsTable <- DT::renderDataTable({
DT::datatable(datasets::mtcars[,1:3],
options = list(rowCallback = JS(
"function(nRow) {",
"var full_text = 'Test1';",
"var full_text1 = 'Test2';",
"$('td:eq(0)', nRow).attr('title', full_text);",
"$('td:eq(1)', nRow).attr('title', full_text1);",
"}")
)
)
})
}
)
我希望这会对你有所帮助。