如何在R中创建一个像swirl()这样的函数？

my_swirl <- function() {
  while(TRUE) {
    menu_choice <- menu(title = "Swirl Menu",
                        choices = c("Option 1", "Option 2", "Exit"),
                        graphics = FALSE)
    
    if(menu_choice == 1) {
      print("You selected Option 1.")
      # 执行 Option 1 相关的操作
    } else if(menu_choice == 2) {
      print("You selected Option 2.")
      # 执行 Option 2 相关的操作
    } else if(menu_choice == 3) {
      print("Exiting...")
      break
    } else {
      print("Invalid choice. Please try again.")
    }
  }
  
  # 返回结果（如果有的话）
  return()
}

# 调用函数
my_swirl()