将无功值传递给条件面板条件

我在这里发现了一个类似的案例，没有具体的答案：闪亮：将reactiveValues传递给conditionalPanel但这给了我一个想法，我需要设置变量session$sendCustomMessage在 server.R 中，然后使用Shiny.addCustomMessageHandler在 ui.R 中。但是，我不知道如何在条件面板中使用该变量。

这是我设计的示例（我知道我可以轻松地对 input.select1 进行条件调整，以使其正常工作）：

https://gist.github.com/anonymous/6013ffb888ef22b5aa110ddcafc5659a

Thanks

如果您想从服务器向客户端发送布尔值以确定某个对象的状态conditionalPanel你可以只使用常规的 Shiny 输出，并告诉 Shiny 不要暂停该值，如下所示：

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)