使用dplyr（NA和grep）在多种条件下进行突变

Question

我想使用dat更改数据（dplyr）中的值。

此处，First.name的值应更改。

这应该在以下条件下完成：如果Company中的值具有NA，并且Email的值具有特定的字符串模式，则我想输入值“ DELETE”，否则First.name的原始值应保留。

library(dplyr)

dat %>% 
    mutate(First.name = ifelse(
        is.na(Company) == T & 
            ifelse(
                grepl("web|google|gmail|gmx|hotmail|yahoo|t-online|freenet|aol|netscape|kabelmail|onlinehome|outlook", Email), 
                "DELETE", 
                First.name
            )
    ))

但是我得到这个错误：

Error in mutate_impl(.data, dots) : Evaluation error: operations are possible only for numeric, logical or complex types.