more generic function name for space styling function

Author: lorenzwalthert

R/rules-spacing.R

@@ -20,16 +20,16 @@ set_space_around_op <- function(pd_flat) {
 }
 
 #' Style spacing around math tokens
-#' @inheritParams style_space_around_math_token_one
+#' @inheritParams style_space_around_token
 #' @param one Character vector with tokens that should be surrounded by at
 #'   least one space (depending on `strict = TRUE` in the styling functions
 #'   [style_text()] and friends). See 'Examples'.
 #' @param zero Character vector of tokens that should be surrounded with zero
 #'   spaces.
 style_space_around_math_token <- function(strict, zero, one, pd_flat) {
   pd_flat %>%
-    style_space_around_math_token_one(strict, zero, 0L) %>%
-    style_space_around_math_token_one(strict, one, 1L)
+    style_space_around_token(strict, zero, 0L) %>%
+    style_space_around_token(strict, one, 1L)
 }
 
 #' Set spacing of token to a certain level
@@ -41,7 +41,7 @@ style_space_around_math_token <- function(strict, zero, one, pd_flat) {
 #' @param tokens Character vector with tokens that should be styled.
 #' @param level Scalar indicating the amount of spaces that should be inserted
 #'   around the `tokens`.
-style_space_around_math_token_one <- function(pd_flat, strict, tokens, level) {
+style_space_around_token <- function(pd_flat, strict, tokens, level) {
   op_after <- pd_flat$token %in% tokens
   op_before <- lead(op_after, default = FALSE)
   idx_before <- op_before & (pd_flat$newlines == 0L)