如何向闪亮的datatable列添加解释？
如何向闪亮的datatable列添加解释？
提问于 2015-09-23 11:57:30
我正在用数据工具编写一个闪亮的应用程序，我想制作一个小盒子来解释每一列的含义。理想情况下，当您将光标移到列名上时，我希望它们出现。
下面是一个应用程序：
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()
})
})我希望有这样的东西，当你把猎手移到物种的列名上时：
有可能吗？请帮帮忙。
回答 1
Stack Overflow用户
回答已采纳
发布于 2015-09-28 11:25:14
多亏了this，我成功地实现了我想要的输出：
ui.R -没有任何更改
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(), 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中定义了解释框。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/32738975
复制相关文章
相似问题
腾讯云开发者
