Изготовление приборной панели - PullRequest
Новая
       21

Изготовление приборной панели

0 голосов
/ 18 мая 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)

Пожалуйста, не обращайте внимания на кнопку создания сценария. Я использовал функцию renderUI для выполнения этой задачи. Если есть какой-либо другой подход, с помощью которого я могу поместить панель управления внутри кнопки действия, скажите мне

...