Shiny in R: ¿Cómo puedo desvanecer mi plotOutput de renderPlot si no se cumplen ciertas condiciones?

La pregunta es sencilla. Primero, probé una condición if-else dentro del gráfico de renderizado. Algo como

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

Esto no funcionó. El área gris en la que se colocaría la trama más tarde se mostró a pesar de que la condición aún no se cumplía. En el siguiente paso, intenté usar validar (veraquí) Básicamente copié el código del ejemplo dado. Sin embargo, todavía muestra el área gris cuando la condición no se cumple. Mi intento actual se ve de la siguiente manera:

ui.R

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

servidor.R

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

La función de trazado es solo para ilustración. El mío se ve diferente. ¡Cualquier ayuda es muy apreciada!

Respuestas a la pregunta(2)

Su respuesta a la pregunta