R有光泽：将输入变量传递给javascript

Question

我对R shine很新，我正在尝试构建一个基于用户输入显示表格的应用程序。我正在尝试编写一个java脚本，以允许用户在第一列中加粗内容。

目前，我的java脚本必须手动指定应该加粗的变量（下面以粗体显示的部分），并且我想根据用户的输入使其动态化。例如，如果用户在文本框中输入“chevrolet”，那么第一列中“chevrolet”的那些应该更改为粗体。我试图做“var x = input $ var”，但似乎变量没有传递给java脚本......有人可以说明如何让它工作吗？

server.R： 库（有光泽）

  library(ggplot2)

  shinyServer(function(input, output) {

    # Filter data based on selections
    output$table <- renderDataTable({
      data <- mpg
      data
    }
    ,
      options = list(bSort = 0,    
                     bFilter=0,   
                     bAutoWidth=0, 

                     **fnRowCallback = I(
                       'function(nRow, aData, iDisplayIndex, iDisplayIndexFull) {
                          for(i = 0; i < 3; i++){
                          *var x = "audi";*
                              if (aData[0] == x)
                              $("td:eq(0)", nRow).css("font-weight", "bold");
                          }
                   }'
                     )**

      ) 
  )
  })

ui.R：

  library(ggplot2)

  shinyUI(
    fluidPage(
      titlePanel("Basic DataTable"),

      fluidRow(
        column(4, 
               textInput("var", label = h3("Variable to bold"), value = "audi")
        )     
      ),
      fluidRow(
        dataTableOutput(outputId="table")
      )    
    )  
  )

提前非常感谢！