設置主題由 bslib 定義時的 R shiny 模態寬度

Question

當 bs_theme() 處於活動狀態時，如何將模態寬度設置為 80%？ bs_theme() 中是否有可能？ 我只是無法正確使用標簽。

library(shiny)
library(bslib)
ui <- fluidPage(
    shiny::bootstrapLib(),
    theme = bs_theme(
        version = 4,
        bootswatch = "minty"),
    tags$style(".modal-dialog{width: 80% !important;}"),
    actionButton("open_modal", "open modal"),
)

server <- function(input, output) {
    observeEvent(input$open_modal, {
        showModal(
            modalDialog(
                title = "This modal isn't 80% wide")
        )
    })
} 
shinyApp(ui = ui, server = server)

Answer 1

使用tags$style(".modal-dialog {max-width: 80vw;}")代替。 它確保您的模態始終占整個 window 的 80%，並在您更改 window 大小時自動調整大小。