Merge branch '211_subset@main' of https://github.com/insightsengineering/teal.code into 211_subset@main

Author: m7pr

tests/testthat/test-qenv_get_code.R

@@ -452,7 +452,6 @@ testthat::test_that(
 # comments --------------------------------------------------------------------------------------------------------
 
 testthat::test_that("comments fall into proper calls", {
-
   # If comment is on top, it gets moved to the first call.
   # Any other comment gets moved to the call above.
   code <- "
@@ -468,16 +467,16 @@ testthat::test_that("comments fall into proper calls", {
   q <- qenv() |> eval_code(code)
   testthat::expect_identical(
     get_code(q),
-    c("a <- 1 # initial comment",
+    c(
+      "a <- 1 # initial comment",
       "b <- 2 # inline comment",
       "c <- 3 # inbetween comment",
-      "d <- 4 # finishing comment")
+      "d <- 4 # finishing comment"
+    )
   )
-
 })
 
 testthat::test_that("comments get pasted when they fall into calls", {
-
   # If comment is on top, it gets moved to the first call.
   # Any other comment gets moved to the call above.
   # Comments get pasted if there are two assigned to the same call.
@@ -494,13 +493,13 @@ testthat::test_that("comments get pasted when they fall into calls", {
   q <- qenv() |> eval_code(code)
   testthat::expect_identical(
     get_code(q),
-    c("a <- 1 # initial comment # A comment",
+    c(
+      "a <- 1 # initial comment # A comment",
       "b <- 2 # inline comment",
       "c <- 3 # C comment # inbetween comment",
       "d <- 4 # finishing comment"
     )
   )
-
 })
 
 # functions -------------------------------------------------------------------------------------------------------