Использование функции renderUI для отображения страницы панели инструментов при нажатии кнопки действия - PullRequest
Новая
       20

Использование функции renderUI для отображения страницы панели инструментов при нажатии кнопки действия

0 голосов
/ 20 апреля 2019

В моем коде, когда нажимается кнопка загрузки сценария, должна отображаться панель управления. Но я получаю сообщение об ошибке «объект типа« замыкание »не является поднабором». Я знаю, что в переполнении стека уже задано много вопросов, но я не может получить ни одного из них Вот мой код 

library("shiny")
  library("shinydashboard")
ui <- fluidPage(


 actionButton("create_scenario", "Create Scenario"),
  actionButton("load_scenario","load scenario"),
 uiOutput("input"),
 uiOutput("inputs")
   )

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

 observeEvent(input$create_scenario,{

   output$input <- renderUI({
     textInput("txtInput","Enter Scenario Name","Enter name as scenario         
(number of senario created +1)")
    })


 })

  observeEvent(input$load_scenario,{

  output$inputs <- renderUI({
  # textInput("txtInput","Enter Scenario Name","Enter name as scenario  
 #(number of senario created +1)")
        dashboardPage(
       dashboardHeader(title = "Basic dashboard"),
      dashboardSidebar(),
       dashboardBody(
     # Boxes need to be put in a row (or column)
     fluidRow(
       box(plotOutput("plot1", height = 250)),

       box(
         title = "Controls",
         sliderInput("slider", "Number of observations:", 1, 100, 50)
      ))))

  histdata <- rnorm(500)
output$plot1 <- renderPlot({
  data <- histdata[seq_len(input$slider)]
hist(data)
})

 } )


 })
}
shinyApp(ui, server)
...