程序如下，顺序提交能把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()