在行选择时，更改R闪亮中数据表的bg颜色

是指在R语言中使用Shiny框架开发的应用程序中，当用户选择某一行数据时，可以通过更改数据表中该行的背景颜色来提醒用户当前选择的行。

为了实现这个功能，可以使用Shiny的触发事件和CSS样式来实现。具体步骤如下：

在Shiny应用程序中创建一个数据表，可以使用renderDataTable()函数来渲染数据表。
使用observeEvent()函数监听用户选择行的事件。当用户选择行时，触发相应的操作。
在触发事件的回调函数中，使用JavaScript代码来更改选中行的背景颜色。可以通过为选中行添加CSS类来实现。例如，可以使用addClass()函数为选中行添加一个自定义的CSS类。
在应用程序的CSS文件中定义该自定义的CSS类，并设置相应的背景颜色。可以使用background-color属性来设置背景颜色。

下面是一个示例代码，演示如何在Shiny应用程序中实现更改选中行背景颜色的功能：

library(shiny)

ui <- fluidPage(
  dataTableOutput("myTable")
)

server <- function(input, output) {
  # 生成示例数据
  data <- data.frame(
    ID = 1:5,
    Name = c("Alice", "Bob", "Charlie", "David", "Eve")
  )
  
  output$myTable <- renderDataTable({
    datatable(data, selection = "single")
  })
  
  observeEvent(input$myTable_rows_selected, {
    selectedRow <- input$myTable_rows_selected
    
    # 更改选中行的背景颜色
    jsCode <- paste0("
      var table = $('#myTable').DataTable();
      table.rows().deselect();
      table.row(", selectedRow, ").select();
      $('#myTable tbody tr').removeClass('selected-row');
      $('#myTable tbody tr:eq(", selectedRow, ")').addClass('selected-row');
    ")
    
    # 执行JavaScript代码
    session$sendCustomMessage(type = "jsCode", list(code = jsCode))
  })
}

shinyApp(ui, server)

在上述代码中，我们使用了datatable()函数来创建数据表，并设置了selection = "single"来允许用户只能选择一行。

在observeEvent()函数中，我们监听了input$myTable_rows_selected事件，即用户选择行的事件。当用户选择行时，我们使用JavaScript代码来更改选中行的背景颜色。具体来说，我们使用了DataTables插件提供的API来选中和取消选中行，并使用jQuery的addClass()和removeClass()函数来添加和移除自定义的CSS类。

最后，我们通过session$sendCustomMessage()函数将JavaScript代码发送到前端，以执行相应的操作。

请注意，上述示例代码中没有提及任何特定的云计算品牌商的产品。如果您需要在云计算环境中部署Shiny应用程序，您可以考虑使用腾讯云的云服务器（CVM）来搭建Shiny服务器，并使用腾讯云对象存储（COS）来存储应用程序所需的数据和文件。具体的产品和产品介绍链接地址可以参考腾讯云的官方文档。