In einem anderenPos Die gleiche Frage wurde unter der Annahme beantwortet, dass die Tabelle nicht Teil einer renderUI-Funktion ist.

Im folgenden Beispiel versuche ich, dieselbe Lösung (mit JQuery) anzupassen, in der die Tabelle, die ich bedingt formatieren möchte, zu einer RenderUI-Funktion gehört.

    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 diesem kleinen Beispiel wird die bedingte Formatierung nicht auf die Tabelle angewendet