将闪亮的 reactive() 值传递到 DT 的 javascript 部分

Question

我想在 DT 库的 options 中将反应值传递给 rowCallback。请看下面的例子。我在具有闪亮运行时的 flexdashboard 中使用它。

设置

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    horizontal_layout: fill
runtime: shiny    
---

```{r setup, include=FALSE}
library(flexdashboard)
library(DT)
library(shiny)
library(shinyjs)
```

Column
-----------------------------------------------------------------------

具有静态值的表，cutoff = 4.Working.

### Chart A

```{r,eval=T}
output$mtcarsTable1 <- renderDataTable({
      DT::datatable(datasets::mtcars, 
      options = list( pageLength = 5,
                      searching= FALSE,
                      lengthChange = FALSE,
                      ordering=FALSE,
                      rowCallback = JS('
            function(nRow, aData, iDisplayIndex, iDisplayIndexFull,cutoff=4) {
                                      // Bold and green cells for conditions
                                      if (parseFloat(aData[10]) >= cutoff)
                                      $("td:eq(4)", nRow).css("font-weight", "bold");
                                       }')))
    })
dataTableOutput('mtcarsTable1')

```

具有反应值的表，cutoff = gearvalue()，不起作用。

### Conditional Bold

```{r}
fillCol(flex = c(1, 6), 
      radioButtons("gearvalue","Sensitivity to gear column", c("4" = "4", "3" = "3"), inline=T),
    dataTableOutput('mtcarsTable2'),
     width = "100%")
```


```{r,eval=T}
output$mtcarsTable2 <- renderDataTable({
      DT::datatable(datasets::mtcars, 
      options = list( pageLength = 5,
                      searching= FALSE,
                      lengthChange = FALSE,
                      ordering=FALSE,
                      rowCallback = JS('
            function(nRow, aData, iDisplayIndex, iDisplayIndexFull,cutoff=gearvalue()) {
                                      // Bold and green cells for conditions
                                      if (parseFloat(aData[10]) >= cutoff)
                                      $("td:eq(4)", nRow).css("font-weight", "bold");
                                       }')))
    })
```

Answer 1

从这里得到答案Passing input$ value to JS() statement in shiny data table

需要用单引号中的输入值设置行并起作用。

function(nRow, aData, iDisplayIndex, iDisplayIndexFull, cutoff = ',input$gearvalue,')