improve speed

lorenzwalthert · lorenzwalthert · commit 6880d7558299 · 2018-02-23T20:14:14.000+01:00
diff --git a/R/indent.R b/R/indent.R
@@ -208,7 +208,7 @@ needs_indention_one <- function(pd,
   )
 
   other_trigger_on_same_line <-
-    pd[remaining_row_idx_between_trigger_and_line_break, ]$token %in%
+    pd$token[remaining_row_idx_between_trigger_and_line_break] %in%
     other_trigger_tokens
 
   !any(multi_line_token) & !any(other_trigger_on_same_line)

Original file line number	Diff line number	Diff line change
`@@ -208,7 +208,7 @@ needs_indention_one <- function(pd,`
`208`	`208`	`)`
`209`	`209`
`210`	`210`	`other_trigger_on_same_line <-`
`211`		`- pd[remaining_row_idx_between_trigger_and_line_break, ]$token %in%`
	`211`	`+ pd$token[remaining_row_idx_between_trigger_and_line_break] %in%`
`212`	`212`	`other_trigger_tokens`
`213`	`213`
`214`	`214`	`!any(multi_line_token) & !any(other_trigger_on_same_line)`