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

Author: m7pr

DESCRIPTION

@@ -66,4 +66,5 @@ Collate:
     'qenv-show.R'
     'qenv-within.R'
     'teal.code-package.R'
+    'utils-get_code_dependency.R'
     'utils.R'

R/qenv-get_code.R

@@ -80,7 +80,10 @@
 #'
 #' @examples
 #' # retrieve code
-#' q <- within(qenv(), {a <- 1; b <- 2})
+#' q <- within(qenv(), {
+#'   a <- 1
+#'   b <- 2
+#' })
 #' get_code(q)
 #' get_code(q, deparse = FALSE)
 #' get_code(q, names = "a")

man/get_code_dependency.Rd

@@ -446,10 +446,10 @@ testthat::test_that(
     testthat::expect_identical(
       get_code(q, names = "classes"),
       paste("iris2 <- iris[1:5, ]",
-            "iris_head <- head(iris)",
-            "iris3 <- iris_head[1, ]",
-            "classes <- lapply(iris2, class)",
-            sep = "\n"
+        "iris_head <- head(iris)",
+        "iris3 <- iris_head[1, ]",
+        "classes <- lapply(iris2, class)",
+        sep = "\n"
       )
     )
   }
@@ -614,11 +614,11 @@ testthat::test_that("understands $ usage and do not treat rhs of $ as objects (o
   testthat::expect_identical(
     get_code(q, names = "a"),
     paste("x <- data.frame(a = 1:3)",
-          "a <- data.frame(y = 1:3)",
-          "a$x <- a$y",
-          "a$x <- a$x + 2",
-          "a$x <- x$a",
-          sep = "\n"
+      "a <- data.frame(y = 1:3)",
+      "a$x <- a$y",
+      "a$x <- a$x + 2",
+      "a$x <- x$a",
+      sep = "\n"
     )
   )
 })