also negative ones

Author: IndrajeetPatil

R/relevel.R

@@ -52,7 +52,7 @@ flatten_operators_one <- function(pd_nested) {
 #'   from left or from right.
 #' @keywords internal
 flatten_pd <- function(pd_nested, token, child_token = token, left = TRUE) {
-  token_pos_candidates <- which(pd_nested$token[-1] %in% token) + 1L
+  token_pos_candidates <- which(pd_nested$token[-1L] %in% token) + 1L
   if (length(token_pos_candidates) == 0L) {
     return(pd_nested)
   }
@@ -70,7 +70,7 @@ flatten_pd <- function(pd_nested, token, child_token = token, left = TRUE) {
   if (pos < 1L) {
     return(pd_nested)
   }
-  if (!any(pd_nested$child[[pos]]$token[-1] %in% child_token)) {
+  if (!any(pd_nested$child[[pos]]$token[-1L] %in% child_token)) {
     return(pd_nested)
   }
   bind_with_child(pd_nested, pos)

R/roxygen-examples-add-remove.R

@@ -46,7 +46,7 @@ add_roxygen_mask <- function(text, initial_text, example_type) {
   space <- ifelse(text == "", "", " ")
   out <- c(
     paste0("#' @", example_type, space[1L], text[1L]),
-    map2_chr(space[-1], text[-1], ~ paste0("#'", .x, .y))
+    map2_chr(space[-1L], text[-1L], ~ paste0("#'", .x, .y))
   )
 
   ordinary_comment <- grep("^#[^']", initial_text, value = TRUE)

R/roxygen-examples-parse.R

@@ -147,7 +147,7 @@ emulate_rd <- function(roxygen) {
       roxygen2::rd_roclet(),
       paste(roxygen, collapse = "\n")
     )[[1L]]$get_section("examples")
-    text <- as.character(text)[-1]
+    text <- as.character(text)[-1L]
     text <- c(
       if (grepl("^#'(\\s|\t)*@examples(\\s|\t)*$", roxygen[2L])) "",
       text

R/rules-indention.R

@@ -106,7 +106,7 @@ NULL
 #' @keywords internal
 update_indention_ref_fun_dec <- function(pd_nested) {
   if (pd_nested$token[1L] == "FUNCTION") {
-    seq <- seq2(3, nrow(pd_nested) - 2)
+    seq <- seq2(3L, nrow(pd_nested) - 2L)
     pd_nested$indention_ref_pos_id[seq] <- pd_nested$pos_id[2L]
   }
   pd_nested

R/rules-line-breaks.R

@@ -165,7 +165,7 @@ style_line_break_around_curly <- function(strict, pd) {
     is_else <- pd$token == "ELSE"
     if (any(pd$token_before[is_else] == "'}'")) {
       pd$lag_newlines[is_else] <- 0L
-      pd$spaces[c(is_else, FALSE)[-1]] <- 1L
+      pd$spaces[c(is_else, FALSE)[-1L]] <- 1L
     }
     is_if_after_else <- pd$token == "ELSE" & pd$token_after == "IF"
     pd$lag_newlines[lag(is_if_after_else)] <- 0L
@@ -387,7 +387,7 @@ remove_line_break_in_fun_call <- function(pd, strict) {
 
 set_linebreak_after_ggplot2_plus <- function(pd) {
   # if expression is unary, first token is +. Exclude this case.
-  is_plus_raw <- c(FALSE, pd$token[-1] == "'+'")
+  is_plus_raw <- c(FALSE, pd$token[-1L] == "'+'")
   if (any(is_plus_raw)) {
     first_plus <- which(is_plus_raw)[1L]
     next_non_comment <- next_non_comment(pd, first_plus)

R/testing.R

@@ -290,8 +290,8 @@ generate_test_samples <- function() {
       ""
     } else {
       c(
-        paste0(x[1L], gen(x[-1])),
-        paste0(x[1L], " # comment\n", paste(x[-1], collapse = ""))
+        paste0(x[1L], gen(x[-1L])),
+        paste0(x[1L], " # comment\n", paste(x[-1L], collapse = ""))
       )
     }
   }

R/transform-block.R

@@ -45,7 +45,7 @@ parse_transform_serialize_r_block <- function(pd_nested,
     )
   } else {
     serialized_transformed_text <- map2(
-      c(0, find_blank_lines_to_next_expr(pd_nested)[-1] - 1L),
+      c(0, find_blank_lines_to_next_expr(pd_nested)[-1L] - 1L),
       paste0(rep_char(" ", base_indention), pd_nested$text),
       ~ c(rep("", .x), .y)
     ) %>%