210 substitute teal.data::get_code with teal.code::get_code (#1388)

Partner to 
- insightsengineering/teal.data#343 
- insightsengineering/teal.code#214

Replace `teal.data::get_code()` (that worked on `teal_data()`) with
`teal.code::get_code()` (that works on `qenv`).

DESCRIPTION

@@ -37,7 +37,7 @@ BugReports: https://github.com/insightsengineering/teal/issues
 Depends:
     R (>= 4.0),
     shiny (>= 1.8.1),
-    teal.data (> 0.6.0.9007),
+    teal.data (>= 0.6.0.9014),
     teal.slice (>= 0.5.1.9009)
 Imports:
     checkmate (>= 2.1.0),
@@ -48,7 +48,7 @@ Imports:
     rlang (>= 1.0.0),
     shinyjs,
     stats,
-    teal.code (>= 0.5.0),
+    teal.code (>= 0.5.0.9011),
     teal.logger (>= 0.2.0),
     teal.reporter (>= 0.3.1.9004),
     teal.widgets (>= 0.4.0),

R/module_filter_data.R

@@ -74,7 +74,7 @@ srv_filter_data <- function(id, datasets, active_datanames, data_rv, is_active)
   filter_changed <- reactive({
     req(inherits(datasets(), "FilteredData"))
     new_signature <- c(
-      teal.data::get_code(data_rv()),
+      teal.code::get_code(data_rv()),
       .get_filter_expr(datasets = datasets(), datanames = active_datanames())
     )
     if (!identical(previous_signature(), new_signature)) {

R/teal_data_utils.R

@@ -53,7 +53,7 @@ NULL
     args = c(
       mget(x = datanames_corrected_with_raw, envir = teal.code::get_env(data)),
       list(
-        code = teal.data::get_code(data, datanames = datanames_corrected_with_raw),
+        code = teal.code::get_code(data, names = datanames_corrected_with_raw),
         join_keys = teal.data::join_keys(data)[datanames_corrected]
       )
     )