R语言base管道操作符 |＞替代%＞%的一些尝试

%>%

library(magrittr)
iris %>%
    setNames(sub('\\.','_',colnames(.)))
    
# %>% 传参用.代替原数据, 非常方便
# 可惜这符号太丑了哈哈哈，而且只用data.table包的时候还需要特地加载magrittr
# 但是|> 不可以，因此用以下方案代替

((x) x)()

iris |>
    (
        \(x) setNames(x,sub('\\.','_',colnames(x)))
    )()
    
# 双括号，有效但很丑

{(x) x}()

iris |>
    {
        \(x) setNames(x,sub('\\.','_',colnames(x)))
    }()

# {} 搭配 ()，跟双括号差不多，胜在好看些

as.function

iris |> 
    as.function(
        alist(x=,
        setNames(x,sub('\\.','_',colnames(x))))
    )()

# baseR里的as.function，看起来高端，其实节省代码

rlang::as_function

iris |> 
    rlang::as_function(
        ~ setNames(.,sub('\\.','_',colnames(.)))
    )()

# rlang::as_function，可以用~ . 来写匿名函数，代码有减少，看起来也好看

purrr::as_mapper

iris |> 
    purrr::as_mapper(
        ~ setNames(.,sub('\\.','_',colnames(.)))
    )()

# 跟上边是一样的，你有purrr包就肯定有rlang包。

R_USE_PIPEBIND

Sys.setenv(`_R_USE_PIPEBIND_` = TRUE)

iris |>
    x => setNames(x,sub('\\.','_',colnames(x)))

# 官方且优雅，唯一的缺憾是set env这一步很容易报错