在renderDataTable（）中使用formattable（）

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

应用程序代码： 图书馆（闪亮） 库（数据表） 图书馆（DT） 库（格式化表）

---

table我发现我需要用as.datatable（）转换该表。
在~styleit之前有x。很抱歉，我在发布之前忘记了更改它
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)