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

Question

我使用这样的函数menu：

a<-menu(c("Option A","Option B"),title="Choose Option")
if (a==1){
...
}else if (a==2){
...
}
else ...

但是，当我运行它并输入"3"时，它会打印Enter an item from the menu, or 0 to exit而不是我在上else中写的我自己的消息。有没有办法摆脱此默认消息？

Answer 1

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

您还可以将任何消息分配给函数体：

my_menu <- menu
body(my_menu)[[9]][[2]][[4]][[2]][[2]] <- "This is my custom messagen"
my_menu(c("Option A","Option B"),title="Choose Option")
# enter 3

Selection: 3
This is my custom message