如何在闪亮的应用程序中的fluidRow内的框元素中显示悬停

时间:2018-06-01 06:45:16

标签: r shiny hover tooltip

我有一个代码,它有多个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)
              ))

上面是一个流畅的行,我可以在其中描述数据的工具提示。

2 个答案:

答案 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);",
                      "}")
                    )
      )

    })
  }
)

我希望这会对你有所帮助。