小编Joh*_*ohn的帖子

这是我的代码:

test <- function(y){
irisname <- c("Sepal.Length","Sepal.Width","Petal.Length","Petal.Width","Species")
  if(y %in% irisname){
    print(y)
  } else{
    test <- function(...) stop("dummy error")
    test(y)
  }
}
> test("ds")
  Error in test(y) : dummy error 

在结果中:"Error in test(y) : dummy error "我在测试中需要"ds"("ds"),而不是测试(y).

我怎样才能做到这一点？