在shiny renderTable中反复高亮显示一行

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  titlePanel("高亮显示表格中的一行"),
  sidebarLayout(
    sidebarPanel(
      # 添加输入控件（可选）
    ),
    mainPanel(
      tableOutput("myTable")
    )
  )
)

server <- function(input, output) {
  # 定义表格数据
  myData <- data.frame(
    ID = c(1, 2, 3),
    Name = c("John", "Jane", "Tom"),
    Age = c(25, 30, 35)
  )
  
  # 渲染表格
  output$myTable <- renderTable({
    # 高亮显示的行号
    highlightRow <- 2
    
    # 复制表格数据
    tableData <- myData
    
    # 在表格数据中添加CSS类以实现高亮显示
    tableData[highlightRow, ] <- lapply(tableData[highlightRow, ], function(x) {
      tags$span(style = "background-color: yellow;", x)
    })
    
    # 返回渲染的表格
    tableData
  }, include.rownames = FALSE)
}

shinyApp(ui, server)