вопрос прямой. Сначала я попробовал условие if-else на графике рендеринга. Что-то вроде

if (input$Next > 0) {
   plot(...)
}
else {
   return()
}

Это не сработало. Была показана серая область, в которой участок будет размещен позже, хотя условие еще не было выполнено. На следующем шаге я попытался использовать validate (см.Вот). Я в основном скопировал код из приведенного примера. Тем не менее, он по-прежнему показывает серую область, когда условие фактически не выполняется. Моя текущая попытка выглядит следующим образом:

ui.R

shinyUI(fluidPage(
   sidebarPanel(
      plotOutput("test"),
      actionButton("Next", "Next")
))

server.R

shinyServer(function(input, output, session) {
function(input, output) {
  output$test <- renderPlot({
     validate(
        need(input$Next > 0)
     )
     pt <- plot(input$Next,2)
     print(pt)
  })
}
})

Функция сюжета только для иллюстрации. Мой выглядит по-другому. Любая помощь высоко ценится!