%>%
library(magrittr)
iris %>%
setNames(sub('\\.','_',colnames(.)))
((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))))
)()
rlang::as_function
iris |>
rlang::as_function(
~ setNames(.,sub('\\.','_',colnames(.)))
)()
purrr::as_mapper
iris |>
purrr::as_mapper(
~ setNames(.,sub('\\.','_',colnames(.)))
)()
R_USE_PIPEBIND
Sys.setenv(`_R_USE_PIPEBIND_` = TRUE)
iris |>
x => setNames(x,sub('\\.','_',colnames(x)))