如何判断vars传递的参数包含引号为真？

myfun<-function(vars,dataFrame) {
如何判断vars传递的参数包含引号为真？
}
myfun(vars="qa1 qa3",dataFrame=.data)
谢谢！

is.character(vars)

1. length(grep(pattern = "[*]", as.character(substitute(vars))))
   
2. 
   
3. 能否通过这种思路搞定？ 我把[*]
   
4. 变成["]出错

复制代码