Pass the check status to the main teal_data function call

DESCRIPTION

@@ -76,7 +76,7 @@ Encoding: UTF-8
 Language: en-US
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.0
+RoxygenNote: 7.3.1
 Collate:
     'dummy_functions.R'
     'get_rcode_utils.R'

R/module_nested_tabs.R

@@ -23,6 +23,7 @@
 #' @param is_module_specific (`logical(1)`)\cr
 #'  flag determining if the filter panel is global or module-specific.
 #'  When set to `TRUE`, a filter panel is called inside of each module tab.
+#'
 #' @return depending on class of `modules`, `ui_nested_tabs` returns:
 #'   - `teal_module`: instantiated UI of the module
 #'   - `teal_modules`: `tabsetPanel` with each tab corresponding to recursively
@@ -267,6 +268,7 @@ srv_nested_tabs.teal_module <- function(id, datasets, modules, is_module_specifi
 #'
 #' @param module (`teal_module`) module where needed filters are taken from
 #' @param datasets (`FilteredData`) object where needed data are taken from
+#'
 #' @return A `teal_data` object.
 #'
 #' @keywords internal
@@ -291,10 +293,14 @@ srv_nested_tabs.teal_module <- function(id, datasets, modules, is_module_specifi
     get_datasets_code(datanames, datasets, hashes)
   )
 
-  do.call(
+
+  data <- do.call(
     teal.data::teal_data,
     args = c(data, code = list(code), join_keys = list(datasets$get_join_keys()[datanames]))
   )
+
+  data@verified <- attr(datasets, "verification_status")
+  return(data)
 }
 
 #' Get the hash of a dataset

R/utils.R

@@ -66,6 +66,7 @@ teal_data_to_filtered_data <- function(x, datanames = teal_data_datanames(x)) {
   )
   # Piggy-back entire pre-processing code so that filtering code can be appended later.
   attr(ans, "preprocessing_code") <- teal.code::get_code(x)
+  attr(ans, "verification_status") <- x@verified
   ans
 }