1

このコードを使用して、データテーブルの行をフォーマットします

 rowCallback = DT::JS(
      'function(row, data) {
        // Bold cells for those >= 5 in the first column
        if (parseFloat(data[0]) >= 5.0)
          $("td", row).css("background", "red");
      }'
    )

このコードを変更して、静的な "5.0" 値ではなく、input$ 値に基づいて強調表示するようにしたいと思います。ユーザーがグラフ上のポイントをクリックすると、その値を持つ行がデータ テーブルで強調表示されるようにします。

しかし、input$click を 5 に置き換えてもうまくいかないようです。考え？

rowCallback = DT::JS(
          'function(row, data) {
            // Bold cells for those >= 5 in the first column
            if (parseFloat(data[0]) >= input$click)
              $("td", row).css("background", "red");
          }'
        )
4

1 に答える 1

2

DT の最新バージョンを使用すると、Javascript を使用せずにこれを行うことができますformatStyle。

次に例を示します。

library(shiny)
library(DT)
shinyApp(
        ui = fluidPage(numericInput("cutoff", "Test", 5, min = 0, max = 10, step = 1),
                       DT::dataTableOutput('tbl')
        ),
        server = function(input, output) {
                output$tbl = DT::renderDataTable(
                        datatable(iris, options = list(lengthChange = FALSE)) %>% formatStyle(
                                'Sepal.Length',
                                target = 'row',
                                backgroundColor = styleInterval(input$cutoff, c('gray', 'yellow'))
                        )
                )
        }
)

詳細と例こことここ.

おそらく、以下を実行して DT の開発バージョンをインストールする必要があります。

devtools::install_github('rstudio/DT')

DT の開発バージョンを使用できない場合は、別の解決策があります。

library(shiny)
library(DT)
shinyApp(
        ui = fluidPage(numericInput("cutoff", "Test", 5, min = 0, max = 10, step = 1),
                       uiOutput("tbl_holder")

        ),
        server = function(input, output) {
                output$tbl_holder <- renderUI({
                        DT::dataTableOutput('tbl')
                })

                output$tbl = DT::renderDataTable(
                        datatable(iris, options = list(lengthChange = FALSE,rowCallback = DT::JS(
                                paste0('function(row, data) {
                                // Bold cells for those >= 5 in the first column
                                if (parseFloat(data[0]) >=',input$cutoff,')
                                $("td", row).css("background", "red");
        }')
        )))) 
        }
)

pasteJS 関数にカットオフを追加し、renderUi/を使用uiOutputして、カットオフが変更されるたびにデータテーブルを出力する関数が更新されるようにすることができます。

于 2016-01-26T14:37:28.677 に答える