feat: initial support for names(teal_data)

Author: averissimo

DESCRIPTION

@@ -63,6 +63,7 @@ Collate:
     'qenv-get_var.R'
     'qenv-get_warnings.R'
     'qenv-join.R'
+    'qenv-names.R'
     'qenv-show.R'
     'qenv-within.R'
     'teal.code-package.R'

NAMESPACE

@@ -1,6 +1,10 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method("[[",qenv.error)
+S3method("names<-",qenv)
+S3method("names<-",qenv.error)
+S3method(names,qenv)
+S3method(names,qenv.error)
 S3method(within,qenv)
 S3method(within,qenv.error)
 export(concat)

R/qenv-eval_code.R

@@ -80,7 +80,6 @@ setMethod("eval_code", signature = c("qenv", "character"), function(object, code
     }
   }
 
-
   object@warnings <- c(object@warnings, current_warnings)
   object@messages <- c(object@messages, current_messages)
 

R/qenv-names.R

@@ -0,0 +1,43 @@
+#' The Names of a `qenv` or `qenv_error` Object
+#'
+#' Functions to get the names of a `qenv` or `qenv_error` object.
+#' The names are extrapolated from the objects in the `qenv` environment and
+#' are not stored statically, unlike the normal behavior of `names()` function.
+#'
+#' Objects named with a `.` (dot) prefix will be ignored and not returned,
+#' unless `all.names` parameter is set to `TRUE`.
+#'
+#' @param x A (`qenv` or `qenv_error`) object.
+#' @param all.names (`logical(1)`) that specifies whether to include hidden
+#' objects.
+#' @param value Does nothing as the names assignment is not supported.
+#'
+#' @return A character vector of names.
+#'
+#' @seealso [base::names()]
+#'
+#' @export
+names.qenv <- function(x, all.names = FALSE) {
+  checkmate::assert_flag(all.names)
+  ls(get_env(x), all.names = all.names)
+}
+
+#' @rdname names.qenv
+#' @export
+names.qenv.error <- function(x, all.names = FALSE) {
+  NULL
+}
+
+#' @rdname names.qenv
+#' @export
+`names<-.qenv` <- function(x, value) {
+  warning("`names(x) <- value` assignment does nothing for qenv objects")
+  x
+}
+
+#' @rdname names.qenv
+#' @export
+`names<-.qenv.error` <- function(x, value) {
+  warning("`names(x) <- value` assignment does nothing for qenv.error objects")
+  x
+}