在Shiny renderDataTable()中使用formattable()

Question

我正在尝试对一个表格进行一些单元格着色，使用格式库计算一些列的值：

应用程序代码:库(闪亮)库(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()来转换表