fix

Author: IndrajeetPatil

R/rules-spaces.R

@@ -344,8 +344,8 @@ set_space_after_bang_bang <- function(pd_flat) {
 remove_space_around_dollar <- function(pd_flat) {
   dollar_after <- (pd_flat$token == "'$'") & (pd_flat$lag_newlines == 0L)
   dollar_before <- lead(dollar_after, default = FALSE)
-  pd_flat$spaces[dollar_after] <- 0L
   pd_flat$spaces[dollar_before] <- 0L
+  pd_flat$spaces[dollar_after] <- 0L
   pd_flat
 }
 

tests/testthat/indention_operators/dollar_R6-in.R

@@ -1,4 +1,4 @@
-  x$
+  x$  add(10)$
    add(10)  $  add(10)  $
 add(10)$sum +
 3

tests/testthat/indention_operators/dollar_R6-out.R

@@ -1,4 +1,4 @@
-x$
+x$add(10)$
   add(10)$add(10)$
   add(10)$sum +
   3

tests/testthat/spacing/dollar-in.R

@@ -0,0 +1,5 @@
+mtcars $wt
+
+mtcars$ wt
+
+mtcars $ wt

tests/testthat/spacing/dollar-out.R

@@ -0,0 +1,5 @@
+mtcars$wt
+
+mtcars$wt
+
+mtcars$wt

tests/testthat/test-spacing.R

@@ -76,3 +76,10 @@ test_that("spacing around square brackets / braces", {
     transformer = style_text, strict = TRUE
   ), NA)
 })
+
+test_that("spacing around dollar", {
+  expect_warning(test_collection(
+    "spacing", "dollar",
+    transformer = style_text, strict = TRUE
+  ), NA)
+})