观察事件中闪亮的无声验证？

Question

我试图在我闪亮的应用程序的observeEvent 部分中使用validate 语句，但是当条件不满足时，不会返回任何错误消息。它只是一个空白屏幕。这是一个可重现的示例：

require(shiny)
runApp(
  list(
    ui = pageWithSidebar(
      headerPanel("test"),
      sidebarPanel(
        p("Demo Page."),
        sliderInput("sldr", "Select a value", min = 0, max = 10, value = 5),
        actionButton("btn", "Push Me!")
      ),
      mainPanel(
        verbatimTextOutput("text")
      )
    ),
    server = function(input, output){

      observeEvent(input$btn, {

        validate(
          need(input$sldr > 5, "Require > 5")
        )

        output$text <- renderText({
          "hello world"
        })
      })
    }
  )
)

现在，当我启动应用程序并按下 Push Me! 操作按钮时，什么也没有发生（validate 正在停止处理）但没有返回错误消息，只是一个白屏。如果我将选定的值更改为6，那么它会继续并打印消息。

为什么validate 没有显示？

Answer 1

我猜是因为observeEvent 没有将消息发送到的地方。将 validate 推送到 print 中按您希望的方式工作，并且对我来说更有意义。

但这可能不是您所需要的。例如，不确定整个observeEvent 命令是否已终止。

require(shiny)
runApp(
  list(
    ui = pageWithSidebar(
      headerPanel("test"),
      sidebarPanel(
        p("Demo Page."),
        sliderInput("sldr","Select a value",min = 0,max = 10,value = 5),
        actionButton("btn","Push Me!")
      ),
      mainPanel(
        verbatimTextOutput("text")
      )
    ),
    server = function(input,output) {

      observeEvent(input$btn,{

        output$text <- renderText({
          validate(
            need(input$sldr > 5,"Require > 5")
          )
          "hello world"
        })
      })
    }
  )
)

产量：