Shiny 将切换按钮替换为闪亮

我们是否可以在虹膜标题旁边显示切换按钮，如下所示

下面是这方面的代码

if (interactive()) {
  library(shiny)
  library(shinyWidgets)
  library(DT)
  
  ui <- fluidPage(
    tags$h3("Material switch examples"),
    
    materialSwitch(inputId = "switch1", label = "Night mode"),
    dataTableOutput("df")
  )
  server <- function(input, output) {
    
   output$df <- DT::renderDataTable({
     datatable(head(iris),caption = "Iris",options = list(dom = 'ft'))
   })
    
  }
  shinyApp(ui, server)
}

if（交互式（））{
图书馆（闪亮）
图书馆（shinyWidgets）
图书馆（DT）
ui您可以使用
fluidRow
而不是
标题
选项：

if (interactive()) {
  library(shiny)
  library(shinyWidgets)
  library(DT)
  
  ui <- fluidPage(
    tags$h3("Material switch examples"),
    
    fluidRow(column(2,tags$h4("Iris")),column(10,materialSwitch(inputId = "switch1", label = "Night mode"))),
    dataTableOutput("df")
  )
  server <- function(input, output) {
    
    output$df <- DT::renderDataTable({
      datatable(head(iris),options = list(dom = 'ft'))
    })
    
  }
  shinyApp(ui, server)
} 

if（交互式（））{
图书馆（闪亮）
图书馆（shinyWidgets）
图书馆（DT）
用户界面