Do not replace <- with = if within a function call since it has other meaning.

Author: lorenzwalthert

R/rules-replacement.R

@@ -7,8 +7,10 @@ force_assignment_op <- function(pd) {
 
 force_assignment_eq <- function(pd) {
   to_replace <- pd$token == "LEFT_ASSIGN" & pd$text == "<-"
-  pd$token[to_replace] <- "EQ_ASSIGN"
-  pd$text[to_replace] <- "="
+  if (any(to_replace) && next_terminal(pd)$token == "'('") {
+    pd$token[to_replace] <- "EQ_ASSIGN"
+    pd$text[to_replace] <- "="
+  }
   pd
 }
 

tests/testthat/mlr-style/eq-sub-replacement-in.R

@@ -0,0 +1,3 @@
+c(a <- 3)
+(a = b)
+((a = 3))

tests/testthat/mlr-style/eq-sub-replacement-in_tree

@@ -0,0 +1,3 @@
+c(a <- 3)
+(a = b)
+((a = 3))