fix r cmd check

Author: m7pr

R/qenv-get_var.R

@@ -4,8 +4,10 @@
 #' `r lifecycle::badge("deprecated")`
 #' Instead of [get_var()] use native \R operators/functions:
 #' `x[[name]]`, `x$name` or [get()]:
-#' 
+#'
 #' @param ... function is deprecated.
+#' @param x (`qenv`)
+#' @param i (`character(1)`) variable name.
 #'
 #' @aliases get_var,qenv-method
 #' @aliases get_var,qenv.error-method

man/get_var.Rd

@@ -1,45 +1,39 @@
-testthat::test_that("get_var, `$` and `[[` return error if object is qenv.error", {
+testthat::test_that("`$` and `[[` return error if object is qenv.error", {
   q <- eval_code(qenv(), quote(x <- 1))
   q <- eval_code(q, quote(y <- w * x))
 
-  testthat::expect_error(get_var(q, "x"), "when evaluating qenv code")
   testthat::expect_error(q[["x"]], "when evaluating qenv code")
   testthat::expect_error(q$x, "when evaluating qenv code")
 })
 
-testthat::test_that("get_var, `$` and `[[` return object from qenv environment", {
+testthat::test_that("`$` and `[[` return object from qenv environment", {
   q <- eval_code(qenv(), quote(x <- 1))
   q <- eval_code(q, quote(y <- 5 * x))
 
-  lifecycle::expect_deprecated(testthat::expect_equal(get_var(q, "y"), 5))
   testthat::expect_equal(q[["x"]], 1)
   testthat::expect_equal(q$x, 1)
 })
 
 
-testthat::test_that("get_var, `$` and `[[` return NULL if object not in qenv environment", {
+testthat::test_that("`$` and `[[` return NULL if object not in qenv environment", {
   q <- eval_code(qenv(), quote(x <- 1))
   q <- eval_code(q, quote(y <- 5 * x))
 
-  testthat::expect_message(
-    testthat::expect_null(get_var(q, "z"))
-  )
   testthat::expect_null(q[["w"]])
   testthat::expect_null(q$w)
 })
 
-testthat::test_that("get_var, `$` and `[[` only returns objects from qenv, not parent environment(s)", {
+testthat::test_that("`$` and `[[` only returns objects from qenv, not parent environment(s)", {
   q <- qenv()
 
   new_env <- new.env(parent = parent.env(q))
   new_env$an_object <- 2
 
-  testthat::expect_null(get_var(q, "an_object"))
   testthat::expect_null(q[["an_object"]])
   testthat::expect_null(q$an_object)
 })
 
-testthat::test_that("get_var, `$` and `[[` only returns objects from qenv, not .GlobalEnv", {
+testthat::test_that("`$` and `[[` only returns objects from qenv, not .GlobalEnv", {
   if (is.null(.GlobalEnv)) {
     withr::defer(rm("an_object", envir = .GlobalEnv))
   } else {
@@ -49,7 +43,6 @@ testthat::test_that("get_var, `$` and `[[` only returns objects from qenv, not .
   .GlobalEnv$an_object <- iris # nolint: object_name.
 
   q <- qenv()
-  testthat::expect_null(get_var(q, "iris"))
   testthat::expect_null(q[["iris"]])
   testthat::expect_null(q$iris)
 })