fix: minor bugs

Author: averissimo

R/qenv-class.R

@@ -24,19 +24,19 @@ setClass(
 )
 
 #' It initializes the `qenv` class
-#' @name qenv-class
-#' @keywords internal
+#' @noRd
 setMethod(
   "initialize",
   "qenv",
   function(.Object, .xData = new.env(parent = parent.env(.GlobalEnv)), ...) { # nolint: object_name.
+    # .xData needs to be unnamed as the `.environment` constructure requires 1
+    # unnamed formal argument. See methods::findMethods("initialize")$.environment
+    .Object <- methods::callNextMethod(.Object, .xData, ...) # nolint: object_name.
+
     checkmate::assert_environment(.xData)
     lockEnvironment(.xData, bindings = TRUE)
     .Object@.xData <- .xData # nolint: object_name.
 
-    # .xData needs to be unnamed as the `.environment` constructure requires 1
-    # unnamed formal argument. See methods::findMethods("initialize")$.environment
-    .Object <- methods::callNextMethod(.Object, .xData, ...) # nolint: object_name.
     .Object
   }
 )

man/qenv-class.Rd

@@ -7,7 +7,7 @@ testthat::describe("methods::new(qenv)", {
     new_env <- new.env()
     expect_false(environmentIsLocked(new_env))
 
-    expect_true(environmentIsLocked(teal.code::get_env(methods::new("qenv"))))
+    expect_true(environmentIsLocked(teal.code::get_env(methods::new("qenv", .xData = new_env))))
   })
 
   testthat::it("throws error when id and code length doesn't match", {

tests/testthat/test-qenv-class.R

@@ -15,7 +15,7 @@ testthat::test_that("Joining two independent qenvs results in object having comb
   q2 <- eval_code(qenv(), quote(mtcars1 <- mtcars))
 
   testthat::expect_true(.check_joinable(q1, q2))
-  q <- join(q1, q2)
+  q <- c(q1, q2)
 
   testthat::expect_equal(q@.xData, list2env(list(iris1 = iris, mtcars1 = mtcars)))
   testthat::expect_identical(