limit names in get_code.teal_data to x@datanames

insightsengineering · Nov 16, 2023 · 213a215 · 213a215
1 parent 2e7eae1
commit 213a215
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/get_code.R b/R/get_code.R
@@ -116,6 +116,7 @@ get_code.teal_data <- function(x, names = NULL, deparse = TRUE, ...) {
   check_ellipsis(...)
   checkmate::assert_character(names, min.len = 1L, null.ok = TRUE)
   checkmate::assert_flag(deparse)
+  checkmate::assert_subset(names, x@datanames, empty.ok = TRUE)
 
   code <- if (!is.null(names)) {
     get_code_dependency(x@code, names)