bsmodal页脚闪亮的附加按钮

Question

除了默认的关闭按钮，我还要在bsmodal的左下方添加一个按钮。

我尝试过：

library(shiny)
library(shinyBS)

ui<-fluidPage(
  actionButton("tabBut", "View Table"),
  bsModal("modalExample", "Modal Example", "tabBut", size = "large",tags$div(class="modal-footer",tags$button(type="button",class="btn btn-primary mr-auto","data-dismiss"="modal","Done")))
)

server<-function(input, output){

}


shinyApp(ui=ui,server=server)

Answer 1

处理此问题的方法是使用闪亮的showModal和modalDialog，如下例所示：

library(shiny)
library(shinyBS)

ui<-fluidPage(
  actionButton("tabBut", "View Table"),
  #bsModal("modalExample", "Modal Example", "tabBut", size = "large",tags$div(class="modal-footer",tags$button(type="button",class="btn btn-primary mr-auto","data-dismiss"="modal","Done")))
)

server<-function(input, output){

  observeEvent(input$tabBut, {
    showModal(
      modalDialog(
        title = 'Modal Example',
        footer = tagList(
          actionButton("done", "Some button for Done"),
          modalButton('Close')
        )
      )
    )
  })

}


shinyApp(ui=ui,server=server)