除了默认的关闭按钮,我还要在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)
处理此问题的方法是使用闪亮的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)