r - 如何在 R Shiny 中对数据帧进行条件格式设置？

Question

使用 Excel，您可以轻松地对单元格应用条件格式:

你有没有机会用 Shiny 做这样的事情？我已经浏览了tutorials ，但这显然没有涵盖。

例如，我想有条件地为 runExample("02_text") 中的 perm 行着色:

Answer 1

您可以使用 jQuery 为表格设置条件格式。

例如:

library(shiny)
library(datasets)

script <- "$('tbody tr td:nth-child(5)').each(function() {

              var cellValue = $(this).text();

              if (cellValue > 50) {
                $(this).css('background-color', '#0c0');
              }
              else if (cellValue <= 50) {
                $(this).css('background-color', '#f00');
              }
            })"

runApp(list(
  ui = basicPage(
    tags$head(tags$script(HTML('Shiny.addCustomMessageHandler("jsCode", function(message) { eval(message.value); });'))),
    tableOutput("view")
  ),
  server = function(input, output, session) {

    session$onFlushed(function() {
      session$sendCustomMessage(type='jsCode', list(value = script))
    })

    output$view <- renderTable({
      head(rock, n = 20)
    })
  }
))

在 tbody tr td:nth-child(5) 我精确到 nth-child(5) 来循环每个 td 的仅第 5 列(烫发)。

我们需要 session$onFlushed(function() {
session$sendCustomMessage(type='jsCode', list(value = script))
}) 因为如果你把脚本放在头部，它将在表格输出呈现之前执行，然后什么都不会格式化。

如果您想要更多格式，我建议您创建 css 类并使用 addClass :

### In the UI :
tags$head(tags$style(
            ".greenCell {
                background-color: #0c0;
            }

            .redCell {
                background-color: #f00;
            }"))

### In th script
### use .addClass instead of .css(...)

$(this).addClass('greenCell')