小编Han*_* H.的帖子

我尝试将代码从funs （）（软件包dplyr）切换到list（），尤其是在mutate_if（）函数中。

不幸的是，我有一段使用列名作为输入参数的代码。但是，当使用list（）函数时，代码会中断！

此示例代码仅将列的内容替换为列名：

library(tibble)
library(dplyr)

atibble=tribble(~A, ~B,
                "A1", "B1",
                "A2", "B2")

print(atibble)

## A tibble: 2 x 2
#  A     B    
#  <chr> <chr>
#1 A1    B1   
#2 A2    B2   

atibble %>% 
  mutate_if(is.character, funs(quo_name(quo(.))))

## A tibble: 2 x 2
#  A     B    
#  <chr> <chr>
#1 A     B    
#2 A     B 

atibble %>% 
  mutate_if(is.character, list(~quo_name(quo(.))))

## A tibble: 2 x 2
#  A     B    
#  <chr> <chr>
#1 .     . …