问题是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)

型
(one ?tidyverse_style中的示例）将打印

ab = 3
a  = 3

型
(This是丑陋的，原来的tidyverse_style更好，但我不会阻止你。

可以从tidyverse_style中派生出这样的样式。（如前面的回答中所述）下面的示例是所需的最小代码，只有大约20行给予和take。这个代码示例是从这里复制的。修改styler一个规则可能会有一些特殊的副作用，这需要更多的代码来处理。但是稍微修改一下就可以很好地完成。

rpolars_style = function() {
  # derive from tidyverse
  transformers = styler::tidyverse_style()
  transformers$style_guide_name = "rpolars_style"
  transformers$style_guide_version = "0.1.1"

  # reverse tranformer to make <- into =
  transformers$token$force_assignment_op = function(pd) {
    to_replace = pd$token == "LEFT_ASSIGN"

    # pretect against changing globalAssign operator, which does not have a unique defined token.
    if (any(to_replace)) {
      to_replace = to_replace & pd$text != "<<-"
    }

    pd$token[to_replace] = "EQ_ASSIGN"
    pd$text[to_replace] = "="
    pd
  }

  # Specify which tokens must be absent for a transformer to be dropped
  # https://styler.r-lib.org/reference/specify_transformers_drop.html?q=transformers%20_%20drop
  transformers$transformers_drop$token$force_assignment_op = "LEFT_ASSIGN"

  transformers
}

#use example
styler::style_dir(path = ".", style = rpolars_style())

字符串