R Shiny：formattable不會改變任何東西

Question

我正在寫一個Shiny應用程序，我想使用formattable在條件下為某些結果着色。 我按照這里提供的解決方案 在這里 但這些都沒有奏效。 令人費解的是，下面的示例並沒有為結果着色（至少對我來說），盡管顯示的是：

library(DT)
library(shiny)
library(shinydashboard)
library(data.table)
library(formattable)


ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    tabsetPanel(box(formattableOutput("dat"))
    )
  )
)

server <- function(input, output) {

data <- head(mtcars)

  output$dat <- renderFormattable({
    formattable(data, 
                disp = formatter("span", 
                                 style = x ~ style(color = ifelse(x < 200, "green", "gray")))
    )
  })

}


shinyApp(ui, server)

有人有解決方案嗎？

Answer 1

這個答案來自KoderKow（ https://community.rstudio.com/t/r-shiny-formattable-does-not-change-anything/33465 ）：

formattable（）中的數據之后的參數期望列表，我們需要做的就是在list（）函數中包裝disp。 下面的工作代碼！

library(DT)
library(shiny)
library(shinydashboard)
library(data.table)
library(formattable)


ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    tabsetPanel(box(formattableOutput("dat"))
    )
  )
)

server <- function(input, output) {

  data <- head(mtcars)

  output$dat <- renderFormattable({
    formattable(data, list(
                disp = formatter("span", 
                                 style = x ~ style(color = ifelse(x < 200, "green", "gray")))
    ))
  })

}


shinyApp(ui, server)

它現在有效