如何根据radioButtons的inputId值在Shiny服务器中执行函数？

radioButtons(inputId = "myRadio", label = "选择一个选项：",
             choices = c("选项1", "选项2", "选项3"))

server <- function(input, output) {
  observeEvent(input$myRadio, {
    if (input$myRadio == "选项1") {
      # 执行函数1
      function1()
    } else if (input$myRadio == "选项2") {
      # 执行函数2
      function2()
    } else if (input$myRadio == "选项3") {
      # 执行函数3
      function3()
    }
  })
}