Fix indent indices computation with multiple braces

lorenzwalthert · lorenzwalthert · commit 0935242eb679 · 2017-10-12T22:30:04.000+02:00
If braces to if-else statements and the result contained a brace which(pd$token %in% token_closing=[needs_indention]) yielded two numbers. Since the brace expression is not added in a new expression, but the braces are added around the current expression in a nest, the expression may contain pairs of braces.
diff --git a/R/modify_pd.R b/R/modify_pd.R
@@ -129,7 +129,7 @@ compute_indent_indices <- function(pd,
   if (is.null(token_closing)) {
     stop <- npd
   } else {
-    stop <- which(pd$token %in% token_closing) - 1
+    stop <- last(which(pd$token %in% token_closing)[needs_indention]) - 1
   }
 
   seq2(start, stop)

Original file line number	Diff line number	Diff line change
`@@ -129,7 +129,7 @@ compute_indent_indices <- function(pd,`
`129`	`129`	`if (is.null(token_closing)) {`
`130`	`130`	`stop <- npd`
`131`	`131`	`} else {`
`132`		`- stop <- which(pd$token %in% token_closing) - 1`
	`132`	`+ stop <- last(which(pd$token %in% token_closing)[needs_indention]) - 1`
`133`	`133`	`}`
`134`	`134`
`135`	`135`	`seq2(start, stop)`