我们如何自定义菜单功能打印的消息？

Question

我使用async这样的函数：

menu

然而，当我运行它并输入“3”时，它会打印a<-menu(c("Option A","Option B"),title="Choose Option") if (a==1){ ... }else if (a==2){ ... } else ... 而不是我在上一篇Enter an item from the menu, or 0 to exit中写的自己的消息。有没有办法摆脱这个默认消息？

Answer 1

这不是错误，而只是菜单上的固定打印文本。如果你想要别的东西，你就不得不使用菜单了。只需输入菜单就会显示生成此代码的代码，并可用于使用不同的消息编写自己的函数。

您还可以将任何消息分配给功能体：

my_menu <- menu

body(my_menu)[[9]][[2]][[4]][[2]][[2]] <- "This is my custom message\n"

my_menu(c("Option A","Option B"),title="Choose Option")
# enter 3

Selection: 3
This is my custom message