如何为uiOutput内动态渲染的RShiny switchInput自定义样式

样式失效不是动态渲染本身导致的，核心原因是你定义的CSS选择器优先级低于bslib和shinyWidgets加载的默认组件样式，被默认样式覆盖了，以下是两种可直接复用的解决方法：

方案1：提升CSS优先级（推荐，全局生效） #

给你原来写的自定义样式属性加上!important标记，强制样式优先级高于默认样式即可，不需要修改renderUI的渲染逻辑，页面上所有静态、动态渲染的switchInput都能应用这套样式。
修正后的完整可运行代码：

library(shiny)
library(shinyjs)
library(bslib)
library(shinyBS)
library(shinyWidgets)

ui <- fluidPage(
  
  # 开关开启状态样式（对应onStatus = "danger"）
  tags$head(tags$style(HTML('.bootstrap-switch .bootstrap-switch-handle-off.bootstrap-switch-danger,
                                       .bootstrap-switch .bootstrap-switch-handle-on.bootstrap-switch-danger {
                                        background: #eef4fa !important;
                                        color: black !important;
                                        }'))),
  
  # 开关关闭状态样式（对应offStatus = "success"）
  tags$head(tags$style(HTML('.bootstrap-switch .bootstrap-switch-handle-off.bootstrap-switch-success,
                                       .bootstrap-switch .bootstrap-switch-handle-on.bootstrap-switch-success {
                                        background: #fdf1f1 !important;
                                        color: black !important;
                                        }'))),
  
  fluidRow(
    column(2,
           offset = 5,
           align = "center",
           uiOutput('log_axis_output')
    ))
)

server <- function(input, output) {
  
  output$log_axis_output <- renderUI({
    switchInput(
      inputId = "log_axis1",
      offLabel = "Log X\naxis?",
      onLabel = "Normal\nX axis",
      value = FALSE,
      offStatus = "success", 
      onStatus = "danger",
      disabled = FALSE
    )
  })

}

shinyApp(ui = ui, server = server)

方案2：样式随组件同步动态渲染 #

如果不想使用!important标记，可以把自定义样式标签直接放到renderUI的返回内容里，和switchInput组件绑定同时渲染，这样样式会在组件挂载时同步加载，不会被提前加载的默认样式覆盖。这种方式适合给单个动态开关做单独样式定制，不会影响页面其他开关的默认样式。
完整可运行代码：

library(shiny)
library(shinyjs)
library(bslib)
library(shinyBS)
library(shinyWidgets)

ui <- fluidPage(
  fluidRow(
    column(2,
           offset = 5,
           align = "center",
           uiOutput('log_axis_output')
    ))
)

server <- function(input, output) {
  
  output$log_axis_output <- renderUI({
    tagList(
      # 开关开启状态样式
      tags$style(HTML('.bootstrap-switch .bootstrap-switch-handle-off.bootstrap-switch-danger,
                                       .bootstrap-switch .bootstrap-switch-handle-on.bootstrap-switch-danger {
                                        background: #eef4fa;
                                        color: black;
                                        }')),
      # 开关关闭状态样式
      tags$style(HTML('.bootstrap-switch .bootstrap-switch-handle-off.bootstrap-switch-success,
                                       .bootstrap-switch .bootstrap-switch-handle-on.bootstrap-switch-success {
                                        background: #fdf1f1;
                                        color: black;
                                        }')),
      switchInput(
        inputId = "log_axis1",
        offLabel = "Log X\naxis?",
        onLabel = "Normal\nX axis",
        value = FALSE,
        offStatus = "success", 
        onStatus = "danger",
        disabled = FALSE
      )
    )
  })

}

shinyApp(ui = ui, server = server)

内容的提问来源于stack exchange，提问作者Jamie