R Shiny BSModal 弹出窗口以显示选定的输入答案

【问题标题】：R Shiny BSModal Popup to Show Selected InputR Shiny BSModal 弹出窗口以显示选定的输入
【发布时间】：2017-03-02 09:33:45
【问题描述】：

我想创建一个显示当前下拉选项的弹出窗口。我的代码似乎适用于第一次点击，但是当第二次点击时，第一个模式出现，我无法关闭弹出窗口。示例代码粘贴在下面，任何建议将不胜感激。

library(shinyBS)
shinyApp(

ui = basicPage(
actionButton("show", "Show modal dialog"),
uiOutput("Box1"),
uiOutput("modal")
),

server = function(session, input, output) {

observeEvent(input$show,{
output$text <- renderText(input$select1)
output$modal <- renderUI({
bsModal(paste("model", input$show, sep = ''), "Choice", "show", size =     "small", textOutput("text"))
})
toggleModal(session,paste("model", input$show, sep = ''), "close")
})

output$Box1 <- renderUI({
selectizeInput("select1","Select",c("A","B","C"))
})

})

【问题讨论】：

标签： r popup shiny shinybs

【解决方案1】：

简化代码使其工作：

shinyApp(
  ui = basicPage(
    actionButton("show", "Show modal dialog"),
    selectizeInput("select1","Select",c("A","B","C")),
    bsModal("model", "Choice", "show", size ="small", textOutput("text"))
  ),

  server = function(session, input, output) {
    output$text <- renderText(input$select1)
  })

【讨论】：