如何在闪亮的数据表列中添加解释？

Question

我在数据表的帮助下编写了一个闪亮的应用程序,我想制作一些小方块来解释每个列的含义.理想情况下,当您将光标移动到列的名称上时,我希望它们出现.

这是一个应用程序:

ui.R

library(shiny)

data(iris)

shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      fluidRow(
        column(12,
               wellPanel(
                 radioButtons("species", label="Species:", 
                              choices=levels(iris$Species),
                              selected=levels(iris$Species)[1]

                 )
               )
        )
      )
    ),
    mainPanel(
      fluidRow(column(12,
                      dataTableOutput("table1")

      )
      )
    )
  )
)
)

server.R

library(shiny)
library(dplyr)
library(tidyr)

data(iris)  


shinyServer(function(input, output) {

  iris1 <- reactive({
    iris %>% 
      filter(Species %in% input$species)
  })

  output$table1 <- renderDataTable({
    iris1()
  })
})

当你将courser移到Species列名称上时,我想要像这样:

它甚至可能吗？请帮忙.

Answer 1

感谢这个，我设法做出了我想要的输出：

ui.R - 没有任何改变

服务器R

library(shiny)
library(dplyr)
library(tidyr)

data(iris)  

shinyServer(function(input, output) {

  iris1 <- reactive({
    iris %>% 
      filter(Species %in% input$species)
  })

  output$table1 <- renderDataTable(iris1(), callback = htmlwidgets::JS("
        var tips = ['Row Names', 'The Sepal Length', 'The Sepal Width',
                    'The Petal Length', 'The Petal Width'],
            header = table.columns().header();
        for (var i = 0; i < tips.length; i++) {
          $(header[i]).attr('title', tips[i]);
        }
"))
})

它使解释框在 JavaScript 变量中定义tips。