Apply suggestions from code review

Signed-off-by: Marcin <[email protected]>

Author: m7pr

tests/testthat/test-utils-get_code_dependency.R

@@ -88,7 +88,7 @@ testthat::describe("get_code with multiple assignments inside an expression", {
 })
 
 testthat::describe("get_code with subassignments", {
-  testthat::it("tracks [ subassignment as producing the base object", {
+  it("tracks [ subassignment as producing the base object", {
     td <- qenv() |>
       within({
         x <- 1:10
@@ -100,7 +100,7 @@ testthat::describe("get_code with subassignments", {
     testthat::expect_equal(get_code(td, names = "x"), code_source)
   })
 
-  testthat::it("tracks [[ subassignment as producing the base object", {
+  it("tracks [[ subassignment as producing the base object", {
     td <- qenv() |>
       within({
         lst <- list(a = 1, b = 2)
@@ -112,7 +112,7 @@ testthat::describe("get_code with subassignments", {
     testthat::expect_equal(get_code(td, names = "lst"), code_source)
   })
 
-  testthat::it("tracks nested subassignments", {
+  it("tracks nested subassignments", {
     td <- qenv() |>
       within({
         df <- data.frame(x = 1:5, y = 6:10)
@@ -124,7 +124,7 @@ testthat::describe("get_code with subassignments", {
     testthat::expect_equal(get_code(td, names = "df"), code_source)
   })
 
-  testthat::it("tracks multiple subassignments to same object", {
+  it("tracks multiple subassignments to same object", {
     td <- qenv() |>
       within({
         iris <- iris
@@ -137,7 +137,7 @@ testthat::describe("get_code with subassignments", {
     testthat::expect_equal(get_code(td, names = "iris"), code_source)
   })
 
-  testthat::it("tracks subassignments with complex expressions", {
+  it("tracks subassignments with complex expressions", {
     td <- qenv() |>
       within({
         mat <- matrix(1:12, nrow = 3)
@@ -149,7 +149,7 @@ testthat::describe("get_code with subassignments", {
     testthat::expect_equal(get_code(td, names = "mat"), code_source)
   })
 
-  testthat::it("tracks subassignments with function calls on LHS", {
+  it("tracks subassignments with function calls on LHS", {
     td <- qenv() |>
       within({
         lst <- list(a = 1, b = 2)
@@ -161,7 +161,7 @@ testthat::describe("get_code with subassignments", {
     testthat::expect_equal(get_code(td, names = "lst"), code_source)
   })
 
-  testthat::it("tracks -> operator with subassignments", {
+  it("tracks -> operator with subassignments", {
     td <- qenv() |>
       within({
         x <- 1:10
@@ -173,7 +173,7 @@ testthat::describe("get_code with subassignments", {
     testthat::expect_equal(get_code(td, names = "x"), code_source)
   })
 
-  testthat::it("tracks attributes() function with subassignments", {
+  it("tracks attributes() function with subassignments", {
     td <- qenv() |>
       within({
         x <- 1:5
@@ -185,7 +185,7 @@ testthat::describe("get_code with subassignments", {
     testthat::expect_equal(get_code(td, names = "x"), code_source)
   })
 
-  testthat::it("handles complex nested subassignments", {
+  it("handles complex nested subassignments", {
     td <- qenv() |>
       within({
         df <- data.frame(x = 1:5, y = 6:10)
@@ -197,7 +197,7 @@ testthat::describe("get_code with subassignments", {
     testthat::expect_equal(get_code(td, names = "df"), code_source)
   })
 
-  testthat::it("handles subassignments with multiple operators", {
+  it("handles subassignments with multiple operators", {
     td <- qenv() |>
       within({
         lst <- list(a = list(b = 1, c = 2))
@@ -209,7 +209,7 @@ testthat::describe("get_code with subassignments", {
     testthat::expect_equal(get_code(td, names = "lst"), code_source)
   })
 
-  testthat::it("handles subassignments with data frame column creation", {
+  it("handles subassignments with data frame column creation", {
     td <- qenv() |>
       within({
         df <- data.frame(x = 1:3)
@@ -221,7 +221,7 @@ testthat::describe("get_code with subassignments", {
     testthat::expect_equal(get_code(td, names = "df"), code_source)
   })
 
-  testthat::it("handles subassignments with matrix indexing", {
+  it("handles subassignments with matrix indexing", {
     td <- qenv() |>
       within({
         mat <- matrix(1:9, nrow = 3)
@@ -233,7 +233,7 @@ testthat::describe("get_code with subassignments", {
     testthat::expect_equal(get_code(td, names = "mat"), code_source)
   })
 
-  testthat::it("handles subassignments with logical indexing", {
+  it("handles subassignments with logical indexing", {
     td <- qenv() |>
       within({
         vec <- 1:10