当主题由 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;}")。它确保您的模态始终占整个 window 的 80%，当您更改 window 大小时自动调整大小。

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

Set R shiny modal width when theme is defined by bslib

r

modal-dialog

shiny

bslib