Remove spaces around dollar operator

Author: IndrajeetPatil

R/rules-spaces.R

@@ -341,9 +341,10 @@ set_space_after_bang_bang <- function(pd_flat) {
   pd_flat
 }
 
-remove_space_before_dollar <- 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
 }

R/style-guides.R

@@ -108,7 +108,7 @@ tidyverse_style <- function(scope = "tokens",
       remove_space_after_opening_paren = remove_space_after_opening_paren,
       remove_space_after_excl = remove_space_after_excl,
       set_space_after_bang_bang = set_space_after_bang_bang,
-      remove_space_before_dollar = remove_space_before_dollar,
+      remove_space_around_dollar = remove_space_around_dollar,
       remove_space_after_fun_dec = remove_space_after_fun_dec,
       remove_space_around_colons = remove_space_around_colons,
       start_comments_with_space = partial(start_comments_with_space,
@@ -205,7 +205,7 @@ tidyverse_style <- function(scope = "tokens",
       # remove_space_after_opening_paren = c("'('", "'['", "LBB"),
       remove_space_after_excl = "'!'",
       set_space_after_bang_bang = "'!'",
-      remove_space_before_dollar = "'$'",
+      remove_space_around_dollar = "'$'",
       remove_space_after_fun_dec = "FUNCTION",
       remove_space_around_colons = c("':'", "NS_GET_INT", "NS_GET"),
       start_comments_with_space = "COMMENT",

tests/testthat/indention_operators/dollar_R6-in.R

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

tests/testthat/indention_operators/dollar_R6-out.R

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