闪亮：data.frame 条件格式答案

【问题标题】：Shiny: data.frame conditional format闪亮：data.frame 条件格式
【发布时间】：2016-11-03 00:56:08
【问题描述】：

我有一个 Shiny 应用程序，我想使用以下 data.frame 创建一个 tableOutput：

data <- data.frame(X=c('A','B','C','D'),Y=c(1,5,7,3))

在应用程序中，有一个名为 input$sign 的 numericInput，如果值小于该输入，我想将 Y 列的单元格设为粗体。

我尝试使用数据表对象，但它没有出现在应用程序中，我不知道为什么。我使用以下代码创建了它：

data <- datatable(data, options=list(searching=F, paging=F,autoWidth = T)) %>% 
            formatStyle("Y", fontWeight = styleInterval(input$sign,c('bold', 'weight')))

谢谢。

【问题讨论】：

标签： r format shiny dt

【解决方案1】：

我不知道您在哪里遇到问题，但请参阅工作示例

library(shiny)
library(DT)
data <- data.frame(X=c('A','B','C','D'),Y=c(1,5,7,3))
server=shinyServer(function(input, output) {

  output$tt=DT::renderDataTable(
    datatable(data, options=list(searching=F, paging=F,scrollX = T)) %>% 
      formatStyle("Y", fontWeight = styleInterval(input$sign,c('bold', 'weight')))

  )

})

ui=shinyUI(
  fluidPage(
    numericInput("sign","sign",0),
    DT::dataTableOutput("tt")
  )
)

shinyApp(ui,server)

【讨论】：