Question

我有一个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')))

感谢。

Answer 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)

闪亮：data.frame条件格式

1 个答案: