shiny - 替换闪亮的切换按钮

Question

我们可以在 Iris 标题旁边显示切换按钮，如下所示

下面是这个的代码

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)
}

标签： shiny

Answer 1

您可以使用 afluidRow而不是caption选项：

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)
}