R Shiny: форматируемый ничего не меняет

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 () ожидает список, все, что нам нужно сделать, - это обернуть disp в функцию list (). рабочий код ниже!

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)

Теперь работает