chore: lintr cleanup

Author: averissimo

tests/testthat/test-qenv_eval_code.R

@@ -77,7 +77,10 @@ testthat::test_that("eval_code works with quoted code block", {
 
 testthat::test_that("eval_code fails with unquoted expression", {
   b <- 3
-  testthat::expect_error(eval_code(qenv(), a <- b), "unable to find an inherited method for function .eval_code. for signature")
+  testthat::expect_error(
+    eval_code(qenv(), a <- b),
+    "unable to find an inherited method for function .eval_code. for signature"
+  )
 })
 
 testthat::test_that("an error when calling eval_code returns a qenv.error object which has message and trace", {

tests/testthat/test-qenv_get_var.R

@@ -44,9 +44,9 @@ testthat::test_that("get_var, `$` and `[[` only returns objects from qenv, not .
     withr::defer(rm("an_object", envir = .GlobalEnv))
   } else {
     old_object <- .GlobalEnv$an_object
-    withr::defer(.GlobalEnv$an_object <- old_object)
+    withr::defer(.GlobalEnv$an_object <- old_object) # nolint: object_name.
   }
-  .GlobalEnv$an_object <- iris
+  .GlobalEnv$an_object <- iris # nolint: object_name.
 
   q <- qenv()
   testthat::expect_null(get_var(q, "iris"))