R-Shiny DT: 动态高亮

要在R Shiny中实现动态高亮，可以使用DT（DataTables）库。以下是一个示例代码，演示了如何在Shiny应用程序中使用DT库来实现动态高亮。

首先，确保已安装并加载了所需的R包，包括shiny和DT。

# 安装和加载所需的包
install.packages("shiny")
install.packages("DT")
library(shiny)
library(DT)

然后，创建一个Shiny应用程序，并在其中使用DT库创建一个数据表。在此示例中，我们使用了mtcars数据集。

# 创建Shiny应用程序
ui <- fluidPage(
  # 创建数据表
  dataTableOutput("mytable")
)

server <- function(input, output, session) {
  # 在服务器端生成数据表
  output$mytable <- renderDataTable({
    datatable(mtcars, 
              options = list(
                # 添加rowCallback回调函数
                rowCallback = JS(
                  "function(row, data) {",
                  "if (parseFloat(data[3]) > 200) {",
                  "$(row).addClass('highlight');",
                  "}",
                  "}")
              )
    )
  })
}

# 运行Shiny应用程序
shinyApp(ui, server)

在这个例子中，我们添加了一个rowCallback回调函数，用于根据数据表中的某些条件动态高亮行。在上面的代码中，我们使用了mtcars数据集中的第4列（mpg）作为条件。如果mpg大于200，我们将应用一个名为highlight的CSS类，以高亮显示该行。

要查看结果，可以运行这个Shiny应用程序，并在数据表中查看高亮显示的行。

请注意，上述示例只是一个基本的示例，您可以根据您的需求进行扩展和修改。您可以使用不同的条件和CSS类来实现不同的动态高亮效果。