Как отобразить зависание в элементе box внутри liquidRow в блестящем приложении

Question

У меня есть код, который имеет несколько жидкостных рядов, и каждый жидкостный ряд состоит из нескольких складных элементов ящика, которые по умолчанию свернуты, моя задача - отобразить наведенное на них сворачивание, когда окно свернуто в блестящем приложении, изображающее «вы можете открыть ящик, чтобысм. данные, а также небольшую сводку об имеющихся данных "

С помощью функции 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)
              ))

Выше приведен один ряд жидкости, в котором я могу изобразить всплывающую подсказку на данных.

Answer 1

Мне удалось решить ваш вопрос, применив js к столбцам, а не к именам столбцов.

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

    })
  }
)

Надеюсь, это поможет вам.

Answer 2

Не уверен в вашем конкретном случае использования, но вы можете использовать JavaScript, чтобы добавить атрибут title ко всем кнопкам свертывания блока.

Добавьте этот код к вашему ui:

tags$head(tags$script("
  $( document ).ready(function() {
    $('.btn.btn-box-tool').attr('title', 'hovering info');
  });
"))