自动赋值menu()结果放在函数里就跑不下去了，求大神指点！

程序如下，顺序提交能把dtype赋值为3，但是吧这3个句子放一个函数里就卡住了，求大神指点迷津！！！


dtype <- menu(c("continuous", "binary", "ordinal", "quantal",
                 "continuous, clustered"), title = "\nWhat type of response data do you want to consider?")
3
dtype


test <- function(){
   dtype <- menu(c("continuous", "binary", "ordinal", "quantal",
                   "continuous, clustered", "quantal, clustered", "continuous, summary data",
                   "quantal, CxT", "other"), title = "\nWhat type of response data do you want to consider?")
   3
   return(dtype)
}
test()

有人吗？

mercuro 发表于 2017-1-8 18:14
有人吗？

楼主你已经在stackoverflow上找到解决办法了吧，可以考虑分享一下哈

jiangbeilu 发表于 2017-1-10 15:36
楼主你已经在stackoverflow上找到解决办法了吧，可以考虑分享一下哈

没办法，menu()在不能在非交互中使用，我最后是到原package里把原函数一个个改了的

mercuro 发表于 2017-1-24 23:10
没办法，menu()在不能在非交互中使用，我最后是到原package里把原函数一个个改了的