使用 styler 设置 R 代码样式时，使用 = 而不是 <- 进行赋值

Question

我喜欢这个包，但我想知道如何改变 tidyverse 风格的一个规则：我想保留“=”而不是“

我已阅读该说明：http://styler.r-lib.org/articles/customizing_styler.html#implementation-details

但我仍然不知道如何简单地更改该规则。 我已经尝试过非常幼稚的：

library(styler)

force_assignment_op  <- function (pd) 
  {
    to_replace <- pd$token == "LEFT_ASSIGN"
    pd$token[to_replace] <- "EQ_ASSIGN"
    pd$text[to_replace] <- "="
    pd
 }


tidyverse_style()$token$force_assignment_op = force_assignment_op

但是得到以下错误：

Error in tidyverse_style()$token$force_assignment_op = 
force_assignment_op : 
  invalid (NULL) left side of assignment

我想以一种以后可以简单地运行样式器插件的方式对其进行修改。

Answer 1

问题是tidyverse_style()$token是一个列表，不是环境，所以不能修改。 （好吧，你可以修改它，但你修改的是副本，而不是原件。）

您需要编写自己的函数来替换tidyverse_style 函数，并使用它来代替。例如，假设您保留 force_assignment_op 函数：

LaSy_style <- function(...) {
  ts <- tidyverse_style(...)
  ts$token$force_assignment_op <- force_assignment_op
  ts
}

然后

style_text(c("ab <- 3", "a  <-3"), strict = FALSE, style = LaSy_style)

（来自?tidyverse_style 的示例之一）将打印

ab = 3
a  = 3

（这个很难看，原版tidyverse_style更好，但我不会阻止你。）