Хранение всего кода внутри кнопки действия - PullRequest
Новая
       27

Хранение всего кода внутри кнопки действия

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

Я хочу поместить весь свой код в кнопку действия.Когда я нажимаю кнопку, вся моя панель кода должна быть видна на моем экране (которую я сейчас получаю в своем коде). Но, во-первых, я должен видеть только эту кнопку.

Вот пример панели, котораяЯ пытаюсь вставить мою кнопку.Я не сделал кнопку в этом коде, так как это довольно просто. Может кто-нибудь помочь, пожалуйста? 

     library(shinydashboard)

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

server <- function(input, output) {
  set.seed(122)
  histdata <- rnorm(500)

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

shinyApp(ui, server)

1 Ответ

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

Вы можете использовать req в выходах, например: 

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

Тогда выход будет отображаться только в том случае, если используется вход.

Вы также можете положить вещи в conditionalPanel().Вы можете использовать это в пользовательской части скрипта.Например: 

fluidRow(conditionalPanel(condition = "input.button == true",
      box(plotOutput("plot1", height = 250)),

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

Обратите внимание, что условие в javascript.

Я дал вашей кнопке имя и присвоил ей значение ИСТИНА / ЛОЖЬ, но вам придется адаптировать ее в зависимости от кнопки ввода.

...