don't add space at EOL in comments

krlmlr · krlmlr · commit afe7d545367f · 2017-07-27T20:58:11.000+02:00
diff --git a/R/nested.R b/R/nested.R
@@ -130,7 +130,8 @@ set_spaces <- function(spaces_after_prefix, force_one) {
   if (force_one) {
     n_of_spaces <- rep(1, length(spaces_after_prefix))
   } else {
-    n_of_spaces <- if_else(spaces_after_prefix < 1L, 1L, spaces_after_prefix)
+    n_of_spaces <- pmax(spaces_after_prefix, 1L)
+    n_of_spaces[spaces_after_prefix == 0L] <- 0L
   }
   n_of_spaces
 }

Original file line number	Diff line number	Diff line change
`@@ -130,7 +130,8 @@ set_spaces <- function(spaces_after_prefix, force_one) {`
`130`	`130`	`if (force_one) {`
`131`	`131`	`n_of_spaces <- rep(1, length(spaces_after_prefix))`
`132`	`132`	`} else {`
`133`		`- n_of_spaces <- if_else(spaces_after_prefix < 1L, 1L, spaces_after_prefix)`
	`133`	`+ n_of_spaces <- pmax(spaces_after_prefix, 1L)`
	`134`	`+ n_of_spaces[spaces_after_prefix == 0L] <- 0L`
`134`	`135`	`}`
`135`	`136`	`n_of_spaces`
`136`	`137`	`}`