如何在shiny R中解析单选按钮值

library(shiny)

ui <- fluidPage(
  titlePanel("解析单选按钮值"),
  sidebarLayout(
    sidebarPanel(
      radioButtons("color", "选择一种颜色：",
                   choices = c("红色", "蓝色", "绿色"),
                   selected = "红色")
    ),
    mainPanel(
      textOutput("result")
    )
  )
)

server <- function(input, output) {
  output$result <- renderText({
    selected_color <- input$color
    # 解析和处理选中的颜色值
    if (selected_color == "红色") {
      "您选择了红色。"
    } else if (selected_color == "蓝色") {
      "您选择了蓝色。"
    } else if (selected_color == "绿色") {
      "您选择了绿色。"
    } else {
      "请选择一种颜色。"
    }
  })
}

shinyApp(ui = ui, server = server)