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

Question

我正在嘗試使用formattable庫在表上對某些列的值進行評估的單元格着色：

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)

Answer 1

我發現我需要使用as.datatable（）轉換表