如何在Shiny框架中为单选按钮组添加边框？

当然可以实现，下面给你两种实用的方法：

方法一：原生Shiny+自定义CSS（灵活可控） #

通过给单选按钮组套一个容器，再用CSS给容器加边框样式，能完全自定义外观：

library(shiny)

ui <- fluidPage(
  # 写入自定义CSS样式
  tags$style(
    ".radio-group-box {
      border: 1px solid #ccc; /* 边框粗细和颜色 */
      padding: 15px; /* 内部留白 */
      border-radius: 5px; /* 圆角 */
      background-color: #f9f9f9; /* 背景色 */
    }"
  ),
  
  # 带边框的单选按钮组
  div(class = "radio-group-box",
      radioButtons(inputId = "my_radio",
                   label = "选择一个选项：",
                   choices = c("选项A", "选项B", "选项C"))
  )
)

server <- function(input, output) {}

shinyApp(ui, server)

你可以根据需求修改CSS参数，比如改成蓝色粗边+阴影的样式：

.radio-group-box {
  border: 2px solid #007bff;
  padding: 20px;
  border-radius: 8px;
  box-shadow: 0 2px 4px rgba(0,0,0,0.1);
  background-color: #fff;
}

方法二：用shinyWidgets快速实现（简洁高效） #

如果不想写CSS，用shinyWidgets包的panel()组件能直接生成带边框的容器：

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  panel(
    radioButtons(inputId = "my_radio",
                 label = "选择一个选项：",
                 choices = c("选项A", "选项B", "选项C")),
    status = "default", # 边框主题色，可选primary/success等
    solidHeader = FALSE, # 不需要纯色标题栏设为FALSE
    style = "padding: 15px;" # 调整内部留白
  )
)

server <- function(input, output) {}

shinyApp(ui, server)

内容的提问来源于stack exchange，提问作者corsica