使用deparse(substitute())。

fun_df <- function(data,x) {
  xx <- deparse(substitute(x))
  if(is.numeric(data[[xx]])){
    stop("done!")
  }
  print("did not pass")
}
fun_df(iris, Sepal.Width)

Error in fun_df(iris, Sepal.Width) : done!

**更新：**见注解：

我们不需要替代品：我们只能使用列名：

fun_df <- function(data,x) {
  
  if(is.numeric(data[,x])){
    stop("done!")
  }
  print("did not pass")
}

fun_df(mtcars, "mpg")
Error in fun_df(mtcars, "mpg") : done!

**第一个答案：**另外，我们可以使用{{}}：（感谢Deschen解决了括号问题（+1）：

fun_df <- function(data, x) {

 i1 <- data %>%
         pull({{x}}) %>%
     is.numeric
 if(i1)  {
   print("done!") 
 } else
   print("did not pass")    
     
     
  
}

fun_df(cars, dist)
[1] "done!"

1.函数中缺少一个封闭括号。
1.你可能想做一个if else组合。
1.如果您打开了变量名作为字符向量传递，则以下操作有效：

fun_df <- function(data, x)
{
  if(is.numeric(data[, x]))
  {
    print("done!")
  } else
  print("did not pass")
}

fun_df(mtcars, "mpg")

[1] "done!"