当主题由 bslib 定义时设置 R 闪亮模态宽度

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;}")。它确保您的模态始终占据整个窗口的 80%，并在您更改窗口大小时自动调整大小。