allow to pass ... trhough [. to get_code_dependency - needed in teal.data

Author: m7pr

R/qenv-extract.R

@@ -1,6 +1,7 @@
 #'
 #' @section Subsetting:
 #' `x[names]` subsets objects in `qenv` environment and limit the code to the necessary needed to build limited objects.
+#' `...` passes parameters to further methods.
 #'
 #' @param x (`qenv`)
 #'
@@ -15,7 +16,7 @@
 #' @rdname qenv
 #'
 #' @export
-`[.qenv` <- function(x, names) {
+`[.qenv` <- function(x, names, ...) {
   checkmate::assert_class(names, "character")
   possible_names <- ls(get_env(x), all.names = TRUE)
   names_warn <- setdiff(names, possible_names)
@@ -43,7 +44,7 @@
 
   x@env <- list2env(mget(x = names, envir = get_env(x)))
   names <- gsub("^`(.*)`$", "\\1", names)
-  x@code <- get_code_dependency(x@code, names = names)
+  x@code <- get_code_dependency(x@code, names = names, ...)
 
   x
 }