improve for speed (and legibility)

Author: lorenzwalthert

R/rules-other.R

@@ -84,7 +84,7 @@ wrap_subexpr_in_curly <- function(pd,
                                   ind_to_be_wrapped,
                                   indent_by) {
   to_be_wrapped_starts_with_comment <-
-    pd[ind_to_be_wrapped[1], ]$token == "COMMENT"
+    pd$token[ind_to_be_wrapped[1]] == "COMMENT"
   new_expr <- wrap_expr_in_curly(
     pd[ind_to_be_wrapped, ],
     stretch_out = c(!to_be_wrapped_starts_with_comment, TRUE)

R/utils.R

@@ -67,7 +67,7 @@ next_non_comment <- function(pd, pos) {
 #' @param pos The position of the token to start the search from.
 extend_if_comment <- function(pd, pos) {
   if (pos == nrow(pd)) return(pos)
-  if (pd[pos + 1,]$token == "COMMENT") {
+  if (pd$token[pos + 1] == "COMMENT") {
     extend_if_comment(pd, pos + 1L)
   } else {
     pos