R Shiny:renderUI中的表条件格式 [英] R Shiny: table conditional formatting within renderUI

问题描述

在另一篇帖子中假设表不是renderUI函数的一部分，则回答了相同的问题.

In another post the same question has been answered assuming that the table is not part of a renderUI function.

在下面的示例中，我尝试调整同一方法(使用JQuery)，该方法要我要有条件地格式化的表属于renderUI函数.

In the below example I am trying to adjust the same solution (using JQuery) where the table I want to conditionally format belongs in a renderUI function.

    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');
              }
            })"

  shinyServer(function(input, output, session) {

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

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

    output$Test1 <- renderUI({
      list(
        tags$head(tags$script(HTML('Shiny.addCustomMessageHandler("jsCode", function(message) { eval(message.value); });'))),
        tableOutput("view")
      )
    })
  })

  shinyUI(fluidPage(

    tabsetPanel(
      tabPanel("Test1",uiOutput("Test1")),
      tabPanel("Test2")
    )
  ))

在这个小例子中，条件格式未应用于表

In this small example conditional formating is not applied to the table

推荐答案

将您的调用更改为session$onFlushed，以便每次shiny通过添加参数once = FALSE刷新反应性系统时都调用函数:

Change your call to session$onFlushed to call your function every time shiny flushes the reactive system by adding the argument once = FALSE:

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

在一个独立的示例中:

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(server = function(input, output, session) {
  session$onFlushed(function() {
    session$sendCustomMessage(type='jsCode', list(value = script))
  }, FALSE)
  output$view <- renderTable({
    head(rock, n = 20)
  })
  output$Test1 <- renderUI({
    list(
      tags$head(tags$script(HTML('Shiny.addCustomMessageHandler("jsCode", function(message) { eval(message.value); });')))
      , tableOutput("view")
    )
  })
}
, ui = fluidPage(

  tabsetPanel(
    tabPanel("Test1",uiOutput("Test1")),
    tabPanel("Test2")
  )
))
)

这篇关于R Shiny:renderUI中的表条件格式的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！