[skip style] [skip vbump] Restyle files

Author: github-actions[bot]

R/qenv-eval_code.R

@@ -29,7 +29,9 @@ setGeneric("eval_code", function(object, code) standardGeneric("eval_code"))
 
 setMethod("eval_code", signature = c("qenv", "character"), function(object, code) {
   parsed_code <- parse(text = code, keep.source = TRUE)
-  if (length(parsed_code) == 0) return(object)
+  if (length(parsed_code) == 0) {
+    return(object)
+  }
 
   id <- sample.int(.Machine$integer.max, size = length(parsed_code))
 

R/utils-get_code_dependency.R

@@ -494,8 +494,8 @@ get_line_ids <- function(pd) {
   # If NUM_CONST is the last element, we need to reorder rows.
   # Last 2 rows
   n <- nrow(pd)
-  if (pd$token[n-1] == "NUM_CONST" && pd$parent[n] == 0) {
-    pd <- rbind(pd[-(n-1), ], pd[n-1, ])
+  if (pd$token[n - 1] == "NUM_CONST" && pd$parent[n] == 0) {
+    pd <- rbind(pd[-(n - 1), ], pd[n - 1, ])
   }
 
   calls_start <- which(pd$parent == 0)

tests/testthat/test-qenv_get_code.R

@@ -463,7 +463,8 @@ testthat::test_that("comments fall into proper calls", {
   q <- qenv() |> eval_code(code)
   testthat::expect_identical(
     get_code(q),
-    c("    # initial comment\n    a <- 1",
+    c(
+      "    # initial comment\n    a <- 1",
       "    b <- 2 # inline comment",
       "    c <- 3\n    # inbetween comment",
       "    d <- 4\n    # finishing comment"
@@ -488,7 +489,8 @@ testthat::test_that("comments get pasted when they fall into calls", {
   q <- qenv() |> eval_code(code)
   testthat::expect_identical(
     get_code(q),
-    c("    # initial comment\n    a <- 1 # A comment",
+    c(
+      "    # initial comment\n    a <- 1 # A comment",
       "    b <- 2 # inline comment",
       "    c <- 3 # C comment\n    # inbetween comment",
       "    d <- 4\n    # finishing comment"
@@ -634,8 +636,10 @@ testthat::test_that("detects occurrence of a function definition with a @linksto
   q <- eval_code(qenv(), code)
   testthat::expect_identical(
     get_code(q, names = "x"),
-    c("        foo <- function() {\n          env <- parent.frame()\n          env$x <- 0\n        }",
-      "foo() # @linksto x")
+    c(
+      "        foo <- function() {\n          env <- parent.frame()\n          env$x <- 0\n        }",
+      "foo() # @linksto x"
+    )
   )
 })
 # $ ---------------------------------------------------------------------------------------------------------------