return ls(@env) if @datanames not specified

R/join_keys.R

@@ -142,7 +142,6 @@ join_keys.teal_data <- function(...) {
 #' join_keys(td)
 `join_keys<-.teal_data` <- function(x, value) {
   join_keys(x@join_keys) <- value
-  datanames(x) <- x@datanames # datanames fun manages some exceptions
   x
 }
 

R/teal_data-class.R

@@ -82,8 +82,6 @@ new_teal_data <- function(data,
   new_env <- rlang::env_clone(list2env(data), parent = parent.env(.GlobalEnv))
   lockEnvironment(new_env, bindings = TRUE)
 
-  datanames <- .get_sorted_datanames(datanames = datanames, join_keys = join_keys, env = new_env)
-
   methods::new(
     "teal_data",
     env = new_env,

R/teal_data-datanames.R

@@ -3,10 +3,8 @@
 #' Get or set the value of the `datanames` slot.
 #'
 #' The `@datanames` slot in a `teal_data` object specifies which of the variables stored in its environment
-#' (the `@env` slot) are data sets to be taken into consideration.
-#' The contents of `@datanames` can be specified upon creation and default to all variables in `@env`.
-#' Variables created later, which may well be data sets, are not automatically considered such.
-#' Use this function to update the slot.
+#' (the `@env` slot) are data sets to be taken into consideration. If not set explicitly, then [datanames()] returns
+#' all variable names from `@env`.
 #'
 #' @param x (`teal_data`) object to access or modify
 #' @param value (`character`) new value for `@datanames`; all elements must be names of variables existing in `@env`
@@ -31,7 +29,17 @@
 #' @export
 setGeneric("datanames", function(x) standardGeneric("datanames"))
 setMethod("datanames", signature = "teal_data", definition = function(x) {
-  x@datanames
+  datanames <- if (length(x@datanames)) {
+    x@datanames
+  } else {
+    ls(teal.code::get_env(x), all.names = TRUE)
+  }
+  # sort and add parent if exists
+  .get_sorted_datanames(
+    datanames = datanames,
+    join_keys = join_keys(x),
+    env = teal.code::get_env(x)
+  )
 })
 setMethod("datanames", signature = "qenv.error", definition = function(x) {
   NULL
@@ -42,7 +50,7 @@ setMethod("datanames", signature = "qenv.error", definition = function(x) {
 setGeneric("datanames<-", function(x, value) standardGeneric("datanames<-"))
 setMethod("datanames<-", signature = c("teal_data", "character"), definition = function(x, value) {
   checkmate::assert_subset(value, names(x@env))
-  x@datanames <- .get_sorted_datanames(datanames = value, join_keys = x@join_keys, env = x@env)
+  x@datanames <- value
   methods::validObject(x)
   x
 })

tests/testthat/test-datanames.R

@@ -10,6 +10,12 @@ testthat::test_that("variables not in @datanames are omitted", {
   testthat::expect_identical(datanames(td), c("i", "m"))
 })
 
+testthat::test_that("datanames() returns all object names from @env if @datasets not specified", {
+  td <- teal_data(i = iris, m = mtcars)
+  td <- within(td, f <- faithful)
+  testthat::expect_identical(datanames(td), c("i", "m"))
+})
+
 # set ----
 testthat::test_that("datanames can set value of @datanames", {
   td <- teal_data(i = iris, m = mtcars)