在闪亮的renderDataTable（）中使用formattable（）

Question

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

APP代码：     图书馆（闪亮）     库（data.table）     图书馆（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)

Answer 1

我发现我需要使用as.datatable（）转换表