如何在shiny中指定不同风格的单选按钮？

library(shiny)

ui <- fluidPage(
  titlePanel("不同风格的单选按钮示例"),
  
  sidebarLayout(
    sidebarPanel(
      radioButtons("style", "选择风格：",
                   choices = c("默认", "圆形", "填充"),
                   inline = TRUE)  # 设置为inline排列方式
    ),
    
    mainPanel(
      textOutput("selectedStyle")
    )
  )
)

server <- function(input, output) {
  output$selectedStyle <- renderText({
    paste("您选择的风格是：", input$style)
  })
}

shinyApp(ui, server)