通过使用闪亮的应用程序中的功能来制作仪表板

Question

我试图在函数调用的帮助下将仪表板页面置于一个按钮中。但是我的代码中没有任何仪表板。这是我的代码

 library(shiny)
 library(pool)
library(shinydashboard)

ui <- fluidPage(


  actionButton("load_scenario","load scenario"),
  uiOutput("input")

   )


dashboar <- function(x){

 x <- reactive({renderUI({

dashboardPage(
  dashboardHeader(title = "Quick Example"),
  dashboardSidebar(textInput("text", "Text")),
  dashboardBody(
    valueBox(100, "Basic example"),
    tableOutput("mtcars")
    )
  )
 })


 })
  }

server <- function(input, output,session) {

  observeEvent(input$load_scenario,{
  dashboar(reactive({output$input}))


 })


   }
   shinyApp(ui, server)

按加载方案按钮后，此处没有任何代码输出。 请帮忙。