R 将反应值传递到条件面板条件

我在这里发现了一个类似的案例，但没有具体的答案： 但它给了我一个想法，我需要在server.R中使用

会话$sendCustomMessage

设置变量，然后在ui.R中使用

shinny.addCustomMessageHandler

提取变量。但是，我不知道如何在条件面板中使用该变量

以下是我的人为示例（我知道我可以很容易地调整输入条件。选择1，使其工作）：

---

谢谢

如果您想从服务器向客户端发送一个布尔值来确定

条件面板的状态

，您只需使用常规的Shining输出，并告诉Shining不要像这样挂起该值：

library(shiny)
server = shinyServer(function(input, output, session) {

  output$color_pr <- renderPrint({
    req(input$select1)
    input$select1
  })

  output$panelStatus <- reactive({
    input$select1=="show"
  })
  outputOptions(output, "panelStatus", suspendWhenHidden = FALSE)

})

ui=shinyUI(fluidPage(

  radioButtons("select1", "Show text?",
               c("Yes" = "show", "No" = "noshow")),

  conditionalPanel(

    condition = 'output.panelStatus'
    ,
    verbatimTextOutput("color_pr"))
))

shinyApp(ui=ui,server=server)

库（闪亮）
服务器=shinyServer（功能（输入、输出、会话）{
输出$color\u pr我提到过这个例子是精心设计的，只需对输入条件进行调整即可解决。选择1==“show”

，但这不是我想做的。明白了，我一到电脑前就会编辑我的答案。