Реактивный форматируемый в блестящий?

Question

Как я могу использовать formattable для раскраски некоторых значений в реактивных таблицах?

Вот воспроизводимый пример: я хотел бы закрасить p-значения красным, если они ниже 0,05 в таблице реактивных результатов, которую я создал.

library(DT)
library(shiny)
library(shinydashboard)
library(formattable)


ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(    
    selectizeInput("v.dependent", "", choices = names(mtcars), 
                                      selected = "mpg", multiple = FALSE),
    selectizeInput("predictor", "", choices = names(mtcars), 
                                      selected = "disp", 
                                      multiple = TRUE)),
  dashboardBody(
    tabsetPanel(
      tabPanel("test with mtcars",
               box(formattableOutput("tab"))
      )
    )
  )
)

server <- function(input, output) {

  dep.var <- reactive({
    out <- input$v.dependent
    out
  })

  ind.var <- reactive({
    out <- input$predictor
    out
  })

  var.selected <- reactive({
    out <- append(ind.var(), dep.var(), 0)
    out
  })

  user.selection <- reactive({
    mtcars[, names(mtcars) %in% var.selected()]
  })

  lmod <- reactive({
    lm(as.formula(paste(input$v.dependent, "~", paste(input$predictor, collapse = "+"))), data = user.selection())
  })

  output$tab <- renderFormattable({
    tmp <- summary(lmod())$coefficients
    colnames(tmp) <- c("Coefficients", "SD", "t statistic", "Pvalue")
    tmp <- signif(x = tmp, digits = 3)
    tmp <- formattable(tmp, list(Pvalue = formatter("span", 
                         style = x ~ style(color = ifelse(x < 0.05, style(color = "red", "black")))
      )))
  })

}


shinyApp(ui, server)

Я знаю, что делать со «статическими» таблицами, но когда я пытаюсь использовать этот код, у меня появляется ошибка:

Warning: Error in formatC: 'format' must be one of {"f","e","E","g","G", "fg", "s"}

Есть идеи, как ее решить?

Answer 1

Вы используете синтаксис для formattable.data.table, но в вашем случае tmp - это матрица, которая ведет себя по-другому.Кажется, вы хотите, чтобы это был data.frame, так что вы можете разыграть его самостоятельно.Кроме того, у вас, похоже, есть проблемы с настройкой цвета в вашем ifelse.Кажется, это делает то, что вы хотите

output$tab <- renderFormattable({
    tmp <- summary(lmod())$coefficients
    colnames(tmp) <- c("Coefficients", "SD", "t statistic", "Pvalue")
    tmp <- signif(x = tmp, digits = 3)
    tmp <- as.data.frame(tmp)
    tmp <- formattable(tmp, list(
      Pvalue = formatter("span", style = x ~ style(color = ifelse(x < 0.05, "red", "black"))))
    )
  })