如何更改包含 ifelse 参数的现已弃用的 dplyr::funs()？

Question

非常基本，但我认为我并不真正理解变化：

library(dplyr)
library(lubridate)

Lab_import_sql <- Lab_import %>%
    select_if(~sum(!is.na(.)) > 0) %>%
    mutate_if(is.factor, as.character) %>%
    mutate_if(is.character, funs(ifelse(is.character(.), trimws(.),.))) %>%
    mutate_at(.vars = Lab_import %>% select_if(grepl("'",.)) %>% colnames(),
                 .funs = gsub,
                 pattern = "'",
                 replacement = "''") %>%
    mutate_if(is.character, funs(ifelse(is.character(.), paste0("'", ., "'"),.))) %>%
    mutate_if(is.Date, funs(ifelse(is.Date(.), paste0("'", ., "'"),.)))

编辑：

感谢大家的投入，这是可重现的代码和我的解决方案：

library(dplyr)
library(lubridate)

import <- data.frame(Test_Name = "Fir'st Last", 
                     Test_Date = "2019-01-01", 
                     Test_Number = 10)

import_sql <-import %>%
  select_if(~!all(is.na(.))) %>%
  mutate_if(is.factor, as.character) %>%
  mutate_if(is.character, trimws) %>%
  mutate_if(is.character, list(~gsub("'", "''",.))) %>% 
  mutate_if(is.character, list(~paste0("'", ., "'"))) %>%
  mutate_if(is.Date, list(~paste0("'", ., "'")))

Answer 1

从dplyr 0.8.0 开始，documentation 声明我们应该使用list 而不是funs，例如：

之前：

funs(name = f(.))

之后：

list(name = ~f(.))

所以在这里，呼叫funs(ifelse(is.character(.), trimws(.),.)) 可以改为list(~ifelse(is.character(.), trimws(.),.))。这是在tidyverse 中使用匿名函数的公式表示法，其中单边公式（以~ 开头的表达式）被解释为function(x)，而x 在函数中的任何位置都由@ 表示987654333@。您仍然可以在list 中使用完整的功能。

注意mutate_if 的.funs 参数与包装其他函数以传递给.funs 的funs() 函数之间的区别；即.funs = gsub 仍然有效。如果您需要将多个函数应用于选定的列或通过将它们作为命名参数传递来命名它们，则只需要funs()。您可以使用 list() 执行所有相同的操作。

您还通过在mutate_if 中添加ifelse 来复制工作；该行可以简化为mutate_if(is.character, trimws)，因为如果该列已经是字符，则无需使用ifelse 再次检查它。由于您只应用了一个功能，因此根本不需要funs 或list。