R的prettyRadioButtons应答选项不根据屏幕大小包装

Question

为什么这个prettyRadioButtons问题的长答案选项不会根据屏幕大小自动包装？下面是两个屏幕截图的Chrome浏览器的检查模式模拟不同的设备。

即使手动将宽度设置为“300 to”，也不会包装答案选项。

铬>检验>反应

​

铬>检验> iPhone SE

​

library(shiny)
library(bslib)
library(shinyWidgets)

ui <- bootstrapPage(
  theme = bs_theme(version = 5, "font-scale" = 1.0), 
  
  div(class = "container-fluid",
      
      div(class = "row",
          div(class="col-12", 
              prettyRadioButtons(
                inputId = "a",
                label = "Group A",
                selected = NULL,
                status = "primary",
                shape = c("round"),
                width = NULL,
                choiceNames = c("Lorem Ipsum is simply dummy text of the ",
                                "printing and typesetting industry.Lorem Ipsum has",
                                "been the industry's standard dummy text ever since the 1500s, when an unknown printer"), 
                choiceValues = c("opt1", "opt2", "opt3")
              )
          )
      )
  )
)

server <- function(input, output, session) {
  
}

shinyApp(ui, server)

Answer 1

这可能是Chrome的一个问题。如果检查打开时将Dimensions:设置为Responsive，然后切换到iPhone SE，则可以工作。

如果检查打开时Dimensions:设置为iPhone SE，则回答选项将始终是截止选项。