Question

我已经在这个问题上进行了很多研究，但到目前为止，在使用闪亮的showModal（）而不是bsModal（）时，还没有提供任何解决方案。

当我第二次在模式对话框中显示 rhandsontable 时，显示有错误，即并非显示所有列。

以下示例：

library(shiny)
library(rhandsontable)

u <- shinyUI(fluidPage(

  # Will show first pop-up
  actionButton("go", "Show Table")

))

s <- shinyServer(function(input,output,session){

  df <- data.frame(Wnr = 1:10)  

  observeEvent(input$go, {

    output$table <- renderRHandsontable({

      rhandsontable(df, width = "100%", height = 200)

    })

    showModal(modalDialog(

      title = "Table",
      rHandsontableOutput("table"),
      footer = tagList(actionButton("go2", "Continue"),
                       modalButton("Stop"))

    ))
  })

  observeEvent(input$go2, {

    removeModal()

    # Recalculate the table, adding new columns
    output$table <- renderRHandsontable({

      df$AC <- 1
      df$BC <- 2

      rhandsontable(df, width = "100%", height = 200)

    })

    showModal(modalDialog(

      title = "Table",
      rHandsontableOutput("table"),
      footer = tagList(actionButton("go2", "Continue"),
                       modalButton("Stop"))


    ))
  })


})

shinyApp(u,s)

有没有办法（可能使用 JavaScript ）修复此显示错误？似乎$("myModal").on({"shown.bs.modal", ...})技巧不适用于闪亮的模态，因为它们的结构不同于来自shinyBS包的bootstrap模式。我之所以不使用shinyBS包，是因为我无法在模态的页脚中添加自定义操作按钮。所以，如果你找到一种用shinyBS解决它的方法，我也很高兴。但是，理想情况下，我更喜欢使用modalDialog（）的解决方案。

我感谢任何帮助！如果需要更多信息，请告诉我

闪亮的modandDialog中没有正确显示闪亮的RHandsontable

0 个答案: