在 Shiny renderDataTable() 中使用 formattable()答案

【问题标题】：working with formattable() in Shiny renderDataTable()在 Shiny renderDataTable() 中使用 formattable()
【发布时间】：2018-06-20 16:56:52
【问题描述】：

我正在尝试对使用格式化库评估某些列的值的表格进行一些单元格着色：

APP代码：图书馆（闪亮）库（数据表）图书馆(DT) 库（格式化）

table <- fread("C:/Users/XXXXXXX/Desktop/Classeur2.csv")

ui <- fluidPage(
   titlePanel(""),
   sidebarLayout(
      mainPanel(
        dataTableOutput("Table")
      )
   )
)

server <- function(input, output) {
   output$Table <-  renderDataTable({
     formattable(Table, list(
       S1 = formatter("span", 
                         style = ~ style(color = ifelse(x >= 0, "green",     
"red")))))
 })
}
shinyApp(ui = ui, server = server)

【问题讨论】：

前面有x~style
这是 S1 抱歉我在发帖前忘记更改了

标签： r shiny

【解决方案1】：

发现需要用 as.datatable() 转换表格

【讨论】：