Create an inline plugin.
inline_plugin(dev, prod)Development and production
functions to run when in either state. These
callback function should accept a single argument
lines, a vector of character strings: the source code where
each character string is a line of code.
They also should accept an ellipsis ... for future extensibility.
chg_magrittr_to_native <- function(lines) {
gsub("\\%>\\%", "|>", lines)
}
code <- 'function(x) {
x %>%
sum()
}'
chg_magrittr_to_native(code)
#> [1] "function(x) {\n x |>\n sum()\n}"