2019-09-12 10:33:56 -07:00
|
|
|
showmenu <- function(choices = NULL)
|
2013-04-10 21:29:02 -07:00
|
|
|
{
|
2019-09-12 10:33:56 -07:00
|
|
|
if (is.null(choices)) return("")
|
2013-04-10 21:29:02 -07:00
|
|
|
ans <- menu(choices)
|
|
|
|
|
if(ans==0) "" else choices[ans]
|
2019-09-12 10:33:56 -07:00
|
|
|
|
2013-04-10 21:29:02 -07:00
|
|
|
}
|
2019-09-12 10:33:56 -07:00
|
|
|
str <- showmenu(c("fee fie", "huff and puff", "mirror mirror", "tick tock"))
|
2013-04-10 21:29:02 -07:00
|
|
|
str <- showmenu()
|
