From 014d64f1adcb07c9fa1d553e88045b3a64538a14 Mon Sep 17 00:00:00 2001
From: averissimo <averissimo@users.noreply.github.com>
Date: Wed, 20 Mar 2024 09:54:49 +0000
Subject: [PATCH] deploy: 3a209f318b9cb0f33a7a89e7e8209215e9583cf2

---
 main/coverage-report/index.html | 26670 +++++++++++++++---------------
 1 file changed, 13510 insertions(+), 13160 deletions(-)

diff --git a/main/coverage-report/index.html b/main/coverage-report/index.html
index efe8ed2778..7d00921f87 100644
--- a/main/coverage-report/index.html
+++ b/main/coverage-report/index.html
@@ -94,7 +94,7 @@
   font-size: 11px;
 }</style>
   <div class="col-md-8 col-md-offset-2">
-    <h2>teal coverage - 78.09%</h2>
+    <h2>teal coverage - 77.80%</h2>
     <div class="tabbable">
       <ul class="nav nav-tabs" data-tabsetid="covr">
         <li class="active">
@@ -106,19 +106,19 @@ <h2>teal coverage - 78.09%</h2>
       </ul>
       <div class="tab-content" data-tabsetid="covr">
         <div class="tab-pane active" title="Files" data-value="Files" id="tab-covr-1">
-          <div class="datatables html-widget html-fill-item" id="htmlwidget-9b1accb312f5a3e38a65" style="width:100%;height:500px;"></div>
-          <script type="application/json" data-for="htmlwidget-9b1accb312f5a3e38a65">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/landing_popup_module.R<\/a>","<a href=\"#\">R/show_rcode_modal.R<\/a>","<a href=\"#\">R/module_snapshot_manager.R<\/a>","<a href=\"#\">R/zzz.R<\/a>","<a href=\"#\">R/validations.R<\/a>","<a href=\"#\">R/TealAppDriver.R<\/a>","<a href=\"#\">R/module_filter_manager.R<\/a>","<a href=\"#\">R/init.R<\/a>","<a href=\"#\">R/teal_slices.R<\/a>","<a href=\"#\">R/modules.R<\/a>","<a href=\"#\">R/teal_reporter.R<\/a>","<a href=\"#\">R/get_rcode_utils.R<\/a>","<a href=\"#\">R/module_nested_tabs.R<\/a>","<a href=\"#\">R/module_teal_with_splash.R<\/a>","<a href=\"#\">R/tdata.R<\/a>","<a href=\"#\">R/module_teal.R<\/a>","<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/module_tabs_with_filters.R<\/a>","<a href=\"#\">R/validate_inputs.R<\/a>","<a href=\"#\">R/dummy_functions.R<\/a>","<a href=\"#\">R/teal_slices-store.R<\/a>","<a href=\"#\">R/include_css_js.R<\/a>","<a href=\"#\">R/teal_data_module-eval_code.R<\/a>","<a href=\"#\">R/reporter_previewer_module.R<\/a>","<a href=\"#\">R/teal_data_module-within.R<\/a>","<a href=\"#\">R/teal_data_module.R<\/a>"],[88,37,367,35,379,416,218,237,172,424,166,74,293,207,200,210,382,132,190,47,68,83,64,47,42,63],[19,15,160,10,47,166,82,73,48,136,56,28,119,87,50,87,148,61,27,22,22,18,17,15,7,5],[0,0,28,3,17,116,59,54,38,114,51,27,116,85,49,86,147,61,27,22,22,18,17,15,7,5],[19,15,132,7,30,50,23,19,10,22,5,1,3,2,1,1,1,0,0,0,0,0,0,0,0,0],["0","0","3","6","3","9","14","16","57","66","5","38","36","19","16","25","35","18","51","37","8","27","8","4","6","35"],["0.00%","0.00%","17.50%","30.00%","36.17%","69.88%","71.95%","73.97%","79.17%","83.82%","91.07%","96.43%","97.48%","97.70%","98.00%","98.85%","99.32%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%"]],"container":"<table class=\"row-border\">\n  <thead>\n    <tr>\n      <th>File<\/th>\n      <th>Lines<\/th>\n      <th>Relevant<\/th>\n      <th>Covered<\/th>\n      <th>Missed<\/th>\n      <th>Hits / Line<\/th>\n      <th>Coverage<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"searching":false,"dom":"t","paging":false,"columnDefs":[{"targets":6,"createdCell":"function(td, cellData, rowData, row, col) {\n  var percent = cellData.replace(\"%\", \"\");\n  if (percent > 90) {\n    var grad = \"linear-gradient(90deg, #edfde7 \" + cellData + \", white \" + cellData + \")\";\n  } else if (percent > 75) {\n    var grad = \"linear-gradient(90deg, #f9ffe5 \" + cellData + \", white \" + cellData + \")\";\n  } else {\n    var grad = \"linear-gradient(90deg, #fcece9 \" + cellData + \", white \" + cellData + \")\";\n  }\n  $(td).css(\"background\", grad);\n}\n"},{"className":"dt-right","targets":[1,2,3,4]},{"name":"File","targets":0},{"name":"Lines","targets":1},{"name":"Relevant","targets":2},{"name":"Covered","targets":3},{"name":"Missed","targets":4},{"name":"Hits / Line","targets":5},{"name":"Coverage","targets":6}],"order":[],"autoWidth":false,"orderClasses":false},"callback":"function(table) {\ntable.on('click.dt', 'a', function() {\n  files = $('div#files div');\n  files.not('div.hidden').addClass('hidden');\n  id = $(this).text();\n  files.filter('div[id=\\'' + id + '\\']').removeClass('hidden');\n  $('ul.nav a[data-value=Source]').text(id).tab('show');\n});\n}"},"evals":["options.columnDefs.0.createdCell","callback"],"jsHooks":[]}</script>
+          <div class="datatables html-widget html-fill-item" id="htmlwidget-e274209e30eeb9e4c7a1" style="width:100%;height:500px;"></div>
+          <script type="application/json" data-for="htmlwidget-e274209e30eeb9e4c7a1">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/landing_popup_module.R<\/a>","<a href=\"#\">R/show_rcode_modal.R<\/a>","<a href=\"#\">R/module_snapshot_manager.R<\/a>","<a href=\"#\">R/zzz.R<\/a>","<a href=\"#\">R/validations.R<\/a>","<a href=\"#\">R/TealAppDriver.R<\/a>","<a href=\"#\">R/module_filter_manager.R<\/a>","<a href=\"#\">R/init.R<\/a>","<a href=\"#\">R/teal_slices.R<\/a>","<a href=\"#\">R/modules.R<\/a>","<a href=\"#\">R/teal_reporter.R<\/a>","<a href=\"#\">R/get_rcode_utils.R<\/a>","<a href=\"#\">R/module_nested_tabs.R<\/a>","<a href=\"#\">R/module_teal_with_splash.R<\/a>","<a href=\"#\">R/tdata.R<\/a>","<a href=\"#\">R/module_teal.R<\/a>","<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/module_tabs_with_filters.R<\/a>","<a href=\"#\">R/validate_inputs.R<\/a>","<a href=\"#\">R/teal_slices-store.R<\/a>","<a href=\"#\">R/dummy_functions.R<\/a>","<a href=\"#\">R/include_css_js.R<\/a>","<a href=\"#\">R/teal_data_module-eval_code.R<\/a>","<a href=\"#\">R/reporter_previewer_module.R<\/a>","<a href=\"#\">R/teal_data_module-within.R<\/a>","<a href=\"#\">R/teal_data_module.R<\/a>"],[88,37,367,35,379,466,218,237,172,424,166,74,293,207,200,210,382,132,190,68,47,83,64,47,42,63],[19,15,160,10,47,191,82,73,48,136,56,28,119,87,50,87,148,61,27,22,22,18,17,15,7,5],[0,0,28,3,17,131,59,54,38,114,51,27,116,85,49,86,147,61,27,22,22,18,17,15,7,5],[19,15,132,7,30,60,23,19,10,22,5,1,3,2,1,1,1,0,0,0,0,0,0,0,0,0],["0","0","3","6","3","8","14","16","57","66","5","36","35","19","16","25","35","18","51","8","37","27","8","4","6","35"],["0.00%","0.00%","17.50%","30.00%","36.17%","68.59%","71.95%","73.97%","79.17%","83.82%","91.07%","96.43%","97.48%","97.70%","98.00%","98.85%","99.32%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%"]],"container":"<table class=\"row-border\">\n  <thead>\n    <tr>\n      <th>File<\/th>\n      <th>Lines<\/th>\n      <th>Relevant<\/th>\n      <th>Covered<\/th>\n      <th>Missed<\/th>\n      <th>Hits / Line<\/th>\n      <th>Coverage<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"searching":false,"dom":"t","paging":false,"columnDefs":[{"targets":6,"createdCell":"function(td, cellData, rowData, row, col) {\n  var percent = cellData.replace(\"%\", \"\");\n  if (percent > 90) {\n    var grad = \"linear-gradient(90deg, #edfde7 \" + cellData + \", white \" + cellData + \")\";\n  } else if (percent > 75) {\n    var grad = \"linear-gradient(90deg, #f9ffe5 \" + cellData + \", white \" + cellData + \")\";\n  } else {\n    var grad = \"linear-gradient(90deg, #fcece9 \" + cellData + \", white \" + cellData + \")\";\n  }\n  $(td).css(\"background\", grad);\n}\n"},{"className":"dt-right","targets":[1,2,3,4]},{"name":"File","targets":0},{"name":"Lines","targets":1},{"name":"Relevant","targets":2},{"name":"Covered","targets":3},{"name":"Missed","targets":4},{"name":"Hits / Line","targets":5},{"name":"Coverage","targets":6}],"order":[],"autoWidth":false,"orderClasses":false},"callback":"function(table) {\ntable.on('click.dt', 'a', function() {\n  files = $('div#files div');\n  files.not('div.hidden').addClass('hidden');\n  id = $(this).text();\n  files.filter('div[id=\\'' + id + '\\']').removeClass('hidden');\n  $('ul.nav a[data-value=Source]').text(id).tab('show');\n});\n}"},"evals":["options.columnDefs.0.createdCell","callback"],"jsHooks":[]}</script>
         </div>
         <div class="tab-pane" title="Source" data-value="Source" id="tab-covr-2">
           <div id="files">
-            <div id="R/utils.R" class="hidden">
+            <div id="R/module_nested_tabs.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get client timezone</pre>
+                      <pre class="language-r">#' Create a UI of nested tabs of `teal_modules`</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -132,1253 +132,1253 @@ <h2>teal coverage - 78.09%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' User timezone in the browser may be different to the one on the server.</pre>
+                      <pre class="language-r">#' @section `ui_nested_tabs`:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This script can be run to register a `shiny` input which contains information about the timezone in the browser.</pre>
+                      <pre class="language-r">#' Each `teal_modules` is translated to a `tabsetPanel` and each</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' of its children is another tab-module called recursively. The UI of a</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ns (`function`) namespace function passed from the `session` object in the `shiny` server.</pre>
+                      <pre class="language-r">#' `teal_module` is obtained by calling its UI function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  For `shiny` modules this will allow for proper name spacing of the registered input.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' The `datasets` argument is required to resolve the `teal` arguments in an</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return (`shiny`) input variable accessible with `input$tz` which is a (`character`)</pre>
+                      <pre class="language-r">#' isolated context (with respect to reactivity).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  string containing the timezone of the browser/client.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @section `srv_nested_tabs`:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' This module recursively calls all elements of `modules` and returns currently active one.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' - `teal_module` returns self as a active module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_client_timezone &lt;- function(ns) {</pre>
+                      <pre class="language-r">#' - `teal_modules` also returns module active within self which is determined by the `input$active_tab`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">15</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  script &lt;- sprintf(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">16</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Shiny.setInputValue(`%s`, Intl.DateTimeFormat().resolvedOptions().timeZone)",</pre>
+                      <pre class="language-r">#' @name module_nested_tabs</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">17</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ns("timezone")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @inheritParams module_tabs_with_filters</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">19</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shinyjs::runjs(script) # function does not return anything</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">20</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(NULL)</pre>
+                      <pre class="language-r">#' @param depth (`integer(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'  number which helps to determine depth of the modules nesting.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param is_module_specific (`logical(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Resolve the expected bootstrap theme</pre>
+                      <pre class="language-r">#'  flag determining if the filter panel is global or module-specific.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#'  When set to `TRUE`, a filter panel is called inside of each module tab.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_teal_bs_theme &lt;- function() {</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">27</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bs_theme &lt;- getOption("teal.bs_theme")</pre>
+                      <pre class="language-r">#' Depending on the class of `modules`, `ui_nested_tabs` returns:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">28</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(bs_theme)) {</pre>
+                      <pre class="language-r">#'   - `teal_module`: instantiated UI of the module.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">29</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">#'   - `teal_modules`: `tabsetPanel` with each tab corresponding to recursively</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">30</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!inherits(bs_theme, "bs_theme")) {</pre>
+                      <pre class="language-r">#'     calling this function on it.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">31</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning("teal.bs_theme has to be of a bslib::bs_theme class, the default shiny bootstrap is used.")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">32</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">#' `srv_nested_tabs` returns a reactive which returns the active module that corresponds to the selected tab.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">34</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    bs_theme</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Return parentnames along with datanames.</pre>
+                      <pre class="language-r">ui_nested_tabs &lt;- function(id, modules, datasets, depth = 0L, is_module_specific = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">39</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">40</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  checkmate::assert_count(depth)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">41</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">include_parent_datanames &lt;- function(dataname, join_keys) {</pre>
+                      <pre class="language-r">  UseMethod("ui_nested_tabs", modules)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">42</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  parents &lt;- character(0)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">43</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (i in dataname) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">44</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    while (length(i) &gt; 0) {</pre>
+                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">45</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parent_i &lt;- teal.data::parent(join_keys, i)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">46</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parents &lt;- c(parent_i, parents)</pre>
+                      <pre class="language-r">ui_nested_tabs.default &lt;- function(id, modules, datasets, depth = 0L, is_module_specific = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">47</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      i &lt;- parent_i</pre>
+                      <pre class="language-r">  stop("Modules class not supported: ", paste(class(modules), collapse = " "))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">51</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  unique(c(parents, dataname))</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">ui_nested_tabs.teal_modules &lt;- function(id, modules, datasets, depth = 0L, is_module_specific = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_list(datasets, types = c("list", "FilteredData"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">54</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a `FilteredData`</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a `FilteredData` object from a `teal_data` object.</pre>
+                      <pre class="language-r">    tabsetPanel,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`teal_data`) object</pre>
+                      <pre class="language-r">      # by giving an id, we can reactively respond to tab changes</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`) vector of data set names to include; must be subset of `datanames(x)`</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `FilteredData` object.</pre>
+                      <pre class="language-r">        id = ns("active_tab"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        type = if (modules$label == "root") "pills" else "tabs"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">teal_data_to_filtered_data &lt;- function(x, datanames = teal_data_datanames(x)) {</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(x, "teal_data")</pre>
+                      <pre class="language-r">      lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(datanames, min.chars = 1L, any.missing = FALSE)</pre>
+                      <pre class="language-r">        names(modules$children),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        function(module_id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ans &lt;- teal.slice::init_filtered_data(</pre>
+                      <pre class="language-r">          module_label &lt;- modules$children[[module_id]]$label</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = sapply(datanames, function(dn) x[[dn]], simplify = FALSE),</pre>
+                      <pre class="language-r">          tabPanel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    join_keys = teal.data::join_keys(x)</pre>
+                      <pre class="language-r">            title = module_label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">            value = module_id, # when clicked this tab value changes input$&lt;tabset panel id&gt;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Piggy-back pre-processing code for datasets of interest so that filtering code can be appended later.</pre>
+                      <pre class="language-r">            ui_nested_tabs(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(ans, "preprocessing_code") &lt;- teal.data::get_code(x, datanames = datanames, check_names = FALSE)</pre>
+                      <pre class="language-r">              id = ns(module_id),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(ans, "verification_status") &lt;- x@verified</pre>
+                      <pre class="language-r">              modules = modules$children[[module_id]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ans</pre>
+                      <pre class="language-r">              datasets = datasets[[module_label]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">              depth = depth + 1L,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              is_module_specific = is_module_specific</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Template function for `TealReportCard` creation and customization</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function generates a report card with a title,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' an optional description, and the option to append the filter state list.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`character(1)`) title of the card (unless overwritten by label)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label (`character(1)`) label provided by the user when adding the card</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param description (`character(1)`) optional, additional description</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param with_filter (`logical(1)`) flag indicating to add filter state</pre>
+                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filter_panel_api (`FilterPanelAPI`) object with API that allows the generation</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of the filter state in the report</pre>
+                      <pre class="language-r">ui_nested_tabs.teal_module &lt;- function(id, modules, datasets, depth = 0L, is_module_specific = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_class(datasets, classes = "FilteredData")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return (`TealReportCard`) populated with a title, description and filter state.</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">90</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  args &lt;- c(list(id = ns("module")), modules$ui_args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">report_card_template &lt;- function(title, label, description = NULL, with_filter, filter_panel_api) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">92</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(title)</pre>
+                      <pre class="language-r">  teal_ui &lt;- tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">    id = id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">94</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(description, null.ok = TRUE)</pre>
+                      <pre class="language-r">    class = "teal_module",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(with_filter)</pre>
+                      <pre class="language-r">    uiOutput(ns("data_reactive"), inline = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filter_panel_api, classes = "FilterPanelAPI")</pre>
+                      <pre class="language-r">    tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">97</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      if (depth &gt;= 2L) tags$div(style = "mt-6"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">98</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  card &lt;- teal::TealReportCard$new()</pre>
+                      <pre class="language-r">      do.call(modules$ui, args)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">99</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  title &lt;- if (label == "") title else label</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  card$set_name(title)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">101</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  card$append_text(title, "header2")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(description)) card$append_text(description, "header3")</pre>
+                      <pre class="language-r">  if (!is.null(modules$datanames) &amp;&amp; is_module_specific) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (with_filter) card$append_fs(filter_panel_api$get_filter_state())</pre>
+                      <pre class="language-r">    fluidRow(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  card</pre>
+                      <pre class="language-r">      column(width = 9, teal_ui, class = "teal_primary_col"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      column(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        width = 3,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        datasets$ui_filter_panel(ns("module_filter_panel")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Check `datanames` in modules</pre>
+                      <pre class="language-r">        class = "teal_secondary_col"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function ensures specified `datanames` in modules match those in the data object,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' returning error messages or `TRUE` for successful validation.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    teal_ui</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules`) object</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`) names of datasets available in the `data` object</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `character(1)` containing error message or `TRUE` if validation passes.</pre>
+                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">srv_nested_tabs &lt;- function(id, datasets, modules, is_module_specific = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_modules_datanames &lt;- function(modules, datanames) {</pre>
+                      <pre class="language-r">                            reporter = teal.reporter::Reporter$new()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(datanames)</pre>
+                      <pre class="language-r">  checkmate::assert_class(reporter, "Reporter")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  UseMethod("srv_nested_tabs", modules)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">122</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  recursive_check_datanames &lt;- function(modules, datanames) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # check teal_modules against datanames</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">124</td>
-                    <td class="coverage">122<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">125</td>
-                    <td class="coverage">52<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sapply(modules$children, function(module) recursive_check_datanames(module, datanames = datanames))</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">srv_nested_tabs.default &lt;- function(id, datasets, modules, is_module_specific = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">127</td>
-                    <td class="coverage">70<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_datanames &lt;- setdiff(modules$datanames, c("all", datanames))</pre>
+                      <pre class="language-r">                                    reporter = teal.reporter::Reporter$new()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">128</td>
-                    <td class="coverage">70<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(extra_datanames)) {</pre>
+                      <pre class="language-r">  stop("Modules class not supported: ", paste(class(modules), collapse = " "))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">129</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">130</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "- Module '%s' uses datanames not available in 'data': (%s) not in (%s)",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">131</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          modules$label,</pre>
+                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">132</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toString(dQuote(extra_datanames, q = FALSE)),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">133</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toString(dQuote(datanames, q = FALSE))</pre>
+                      <pre class="language-r">srv_nested_tabs.teal_modules &lt;- function(id, datasets, modules, is_module_specific = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                                         reporter = teal.reporter::Reporter$new()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">135</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  checkmate::assert_list(datasets, types = c("list", "FilteredData"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  moduleServer(id = id, module = function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">138</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  check_datanames &lt;- unlist(recursive_check_datanames(modules, datanames))</pre>
+                      <pre class="language-r">    logger::log_trace("srv_nested_tabs.teal_modules initializing the module { deparse1(modules$label) }.")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">139</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(check_datanames)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">140</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste(check_datanames, collapse = "\n")</pre>
+                      <pre class="language-r">    labels &lt;- vapply(modules$children, `[[`, character(1), "label")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">141</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    modules_reactive &lt;- sapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">142</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRUE</pre>
+                      <pre class="language-r">      names(modules$children),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      function(module_id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        srv_nested_tabs(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">145</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          id = module_id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Check `datanames` in filters</pre>
+                      <pre class="language-r">          datasets = datasets[[labels[module_id]]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">147</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          modules = modules$children[[module_id]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function checks whether `datanames` in filters correspond to those in `data`,</pre>
+                      <pre class="language-r">          is_module_specific = is_module_specific,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">149</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' returning character vector with error messages or `TRUE` if all checks pass.</pre>
+                      <pre class="language-r">          reporter = reporter</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filters (`teal_slices`) object</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">152</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`) names of datasets available in the `data` object</pre>
+                      <pre class="language-r">      simplify = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `character(1)` containing error message or TRUE if validation passes.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    # when not ready input$active_tab would return NULL - this would fail next reactive</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">156</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_filter_datanames &lt;- function(filters, datanames) {</pre>
+                      <pre class="language-r">    input_validated &lt;- eventReactive(input$active_tab, input$active_tab, ignoreNULL = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">157</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filters, "teal_slices")</pre>
+                      <pre class="language-r">    get_active_module &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">158</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(datanames)</pre>
+                      <pre class="language-r">      if (length(modules$children) == 1L) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        # single tab is active by default</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">160</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # check teal_slices against datanames</pre>
+                      <pre class="language-r">        modules_reactive[[1]]()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">161</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out &lt;- unlist(sapply(</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">162</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filters, function(filter) {</pre>
+                      <pre class="language-r">        # switch to active tab</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">163</td>
-                    <td class="coverage">39<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataname &lt;- shiny::isolate(filter$dataname)</pre>
+                      <pre class="language-r">        modules_reactive[[input_validated()]]()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">164</td>
-                    <td class="coverage">39<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!dataname %in% datanames) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">165</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">166</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "- Filter '%s' refers to dataname not available in 'data':\n %s not in (%s)",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shiny::isolate(filter$id),</pre>
+                      <pre class="language-r">    get_active_module</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">168</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dQuote(dataname, q = FALSE),</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">169</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toString(dQuote(datanames, q = FALSE))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">srv_nested_tabs.teal_module &lt;- function(id, datasets, modules, is_module_specific = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                        reporter = teal.reporter::Reporter$new()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">175</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_class(datasets, "FilteredData")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">176</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(out)) {</pre>
+                      <pre class="language-r">  logger::log_trace("srv_nested_tabs.teal_module initializing the module: { deparse1(modules$label) }.")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">177</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste(out, collapse = "\n")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">178</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  moduleServer(id = id, module = function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">179</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    TRUE</pre>
+                      <pre class="language-r">    if (!is.null(modules$datanames) &amp;&amp; is_module_specific) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">180</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      datasets$srv_filter_panel("module_filter_panel")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -1392,728 +1392,728 @@ <h2>teal coverage - 78.09%</h2>
                     <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Create two triggers to limit reactivity between filter-panel and modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create filterable data for modules</pre>
+                      <pre class="language-r">    # We want to recalculate only visible modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # - trigger the data when the tab is selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Converts input data to a `FilteredData` object(s) to allow filtering before passing data to individual modules.</pre>
+                      <pre class="language-r">    # - trigger module to be called when the tab is selected for the first time</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">187</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    trigger_data &lt;- reactiveVal(1L)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">188</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`teal_data`)</pre>
+                      <pre class="language-r">    trigger_module &lt;- reactiveVal(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">189</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules`) object</pre>
+                      <pre class="language-r">    output$data_reactive &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">190</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filters (`teal_slices`) object</pre>
+                      <pre class="language-r">      lapply(datasets$datanames(), function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">191</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filtered_data_singleton A result of `teal_data_to_filtered_data` applied to `data`.</pre>
+                      <pre class="language-r">        datasets$get_data(x, filtered = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Returns list of same shape as `modules`, containing `FilteredData` at every leaf.</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">193</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If module specific, each leaf contains different instance, otherwise every leaf contains `filtered_data_singleton`.</pre>
+                      <pre class="language-r">      isolate(trigger_data(trigger_data() + 1))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">194</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      isolate(trigger_module(TRUE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">modules_datasets &lt;- function(data, modules, filters, filtered_data_singleton = teal_data_to_filtered_data(data)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">196</td>
-                    <td class="coverage">39<em>x</em></td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "teal_data")</pre>
+                      <pre class="language-r">      NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">197</td>
-                    <td class="coverage">39<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"))</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">198</td>
-                    <td class="coverage">39<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filters, "modules_teal_slices")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">199</td>
-                    <td class="coverage">39<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_r6(filtered_data_singleton, "FilteredData")</pre>
+                      <pre class="language-r">    # collect arguments to run teal_module</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">200</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    args &lt;- c(list(id = "module"), modules$server_args)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">201</td>
-                    <td class="coverage">39<em>x</em></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!isTRUE(attr(filters, "module_specific"))) {</pre>
+                      <pre class="language-r">    if (is_arg_used(modules$server, "reporter")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">202</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # subset global filters</pre>
+                      <pre class="language-r">      args &lt;- c(args, list(reporter = reporter))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">203</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices &lt;- shiny::isolate({</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">204</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      Filter(function(x) x$id %in% attr(filters, "mapping")$global_filters, filters)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">205</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    if (is_arg_used(modules$server, "datasets")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">206</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filtered_data_singleton$set_filter_state(slices)</pre>
+                      <pre class="language-r">      args &lt;- c(args, datasets = datasets)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">207</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(modules_structure(modules, filtered_data_singleton))</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">209</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    if (is_arg_used(modules$server, "data")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">210</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_module")) {</pre>
+                      <pre class="language-r">      data &lt;- eventReactive(trigger_data(), .datasets_to_data(modules, datasets))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">211</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # 1. get datanames</pre>
+                      <pre class="language-r">      args &lt;- c(args, data = list(data))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">212</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames &lt;-</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">213</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(modules$datanames) || identical(modules$datanames, "all")) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">214</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        include_parent_datanames(</pre>
+                      <pre class="language-r">    if (is_arg_used(modules$server, "filter_panel_api")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">215</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal_data_datanames(data),</pre>
+                      <pre class="language-r">      filter_panel_api &lt;- teal.slice::FilterPanelAPI$new(datasets)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">216</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.data::join_keys(data)</pre>
+                      <pre class="language-r">      args &lt;- c(args, filter_panel_api = filter_panel_api)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">219</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        include_parent_datanames(</pre>
+                      <pre class="language-r">    # observe the trigger_module above to induce the module once the renderUI is triggered</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">220</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          modules$datanames,</pre>
+                      <pre class="language-r">    observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">221</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.data::join_keys(data)</pre>
+                      <pre class="language-r">      ignoreNULL = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">222</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      once = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">223</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      eventExpr = trigger_module(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">224</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # 2. subset filters (global + dedicated)</pre>
+                      <pre class="language-r">      handlerExpr = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">225</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices &lt;- shiny::isolate({</pre>
+                      <pre class="language-r">        module_output &lt;- if (is_arg_used(modules$server, "id")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">226</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      Filter(x = filters, f = function(x) {</pre>
+                      <pre class="language-r">          do.call(modules$server, args)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">227</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x$dataname %in% datanames &amp;&amp;</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">228</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          (x$id %in% attr(filters, "mapping")$global_filters ||</pre>
+                      <pre class="language-r">          do.call(callModule, c(args, list(module = modules$server)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">229</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x$id %in% unique(unlist(attr(filters, "mapping")[modules$label]))) # nolint: indentation_linter.</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # 2a. subset include/exclude varnames</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">233</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices$include_varnames &lt;- attr(slices, "include_varnames")[names(attr(slices, "include_varnames")) %in% datanames]</pre>
+                      <pre class="language-r">    reactive(modules)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">234</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices$exclude_varnames &lt;- attr(slices, "exclude_varnames")[names(attr(slices, "exclude_varnames")) %in% datanames]</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # 3. instantiate FilteredData</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">237</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filtered_data &lt;- teal_data_to_filtered_data(data, datanames)</pre>
+                      <pre class="language-r">#' Convert `FilteredData` to reactive list of datasets of the `teal_data` type.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # 4. set state</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">239</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filtered_data$set_filter_state(slices)</pre>
+                      <pre class="language-r">#' Converts `FilteredData` object to `teal_data` object containing datasets needed for a specific module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # 5. return</pre>
+                      <pre class="language-r">#' Please note that if a module needs a dataset which has a parent, then the parent will also be returned.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">241</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(filtered_data)</pre>
+                      <pre class="language-r">#' A hash per `dataset` is calculated internally and returned in the code.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">242</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">243</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ans &lt;- lapply(</pre>
+                      <pre class="language-r">#' @param module (`teal_module`) module where needed filters are taken from</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">244</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      modules$children,</pre>
+                      <pre class="language-r">#' @param datasets (`FilteredData`) object where needed data are taken from</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">245</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      modules_datasets,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">246</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data = data,</pre>
+                      <pre class="language-r">#' @return A `teal_data` object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">247</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filters = filters,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">248</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filtered_data_singleton = filtered_data_singleton</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">.datasets_to_data &lt;- function(module, datasets) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">250</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(ans) &lt;- vapply(modules$children, `[[`, character(1), "label")</pre>
+                      <pre class="language-r">  checkmate::assert_class(module, "teal_module")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">251</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_class(datasets, "FilteredData")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">252</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(ans)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">253</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  datanames &lt;- if (is.null(module$datanames) || identical(module$datanames, "all")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">254</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    datasets$datanames()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">255</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stop("something is not right")</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">256</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    include_parent_datanames(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">257</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      module$datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">258</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># Returns nested list of same shape as `modules` with `value` at every leaf.</pre>
+                      <pre class="language-r">      datasets$get_join_keys()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">modules_structure &lt;- function(modules, value = TRUE) {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">260</td>
-                    <td class="coverage">54<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_module")) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">261</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(value)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  # list of reactive filtered data</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">263</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stats::setNames(</pre>
+                      <pre class="language-r">  data &lt;- sapply(datanames, function(x) datasets$get_data(x, filtered = TRUE), simplify = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">264</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lapply(modules$children, modules_structure, value),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">265</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vapply(modules$children, `[[`, character(1), "label")</pre>
+                      <pre class="language-r">  hashes &lt;- calculate_hashes(datanames, datasets)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">267</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  code &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">268</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    get_rcode_str_install(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">269</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    get_rcode_libraries(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">270</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Wrapper on `teal.data::datanames`</pre>
+                      <pre class="language-r">    get_datasets_code(datanames, datasets, hashes)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Special function used in internals of `teal` to return names of datasets even if `datanames`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' has not been set.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">274</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`teal_data`)</pre>
+                      <pre class="language-r">  data &lt;- do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">275</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `character`</pre>
+                      <pre class="language-r">    teal.data::teal_data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">276</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    args = c(data, code = list(code), join_keys = list(datasets$get_join_keys()[datanames]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">teal_data_datanames &lt;- function(data) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">278</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "teal_data")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">279</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(teal.data::datanames(data))) {</pre>
+                      <pre class="language-r">  data@verified &lt;- attr(datasets, "verification_status")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">280</td>
-                    <td class="coverage">161<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.data::datanames(data)</pre>
+                      <pre class="language-r">  data</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">282</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ls(teal.code::get_env(data), all.names = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' Get the hash of a dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param datanames (`character`) names of datasets</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for validating the title parameter of `teal::init`</pre>
+                      <pre class="language-r">#' @param datasets (`FilteredData`) object holding the data</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -2127,1860 +2127,1824 @@ <h2>teal coverage - 78.09%</h2>
                     <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Checks if the input of the title from `teal::init` will create a valid title and favicon tag.</pre>
+                      <pre class="language-r">#' @return A list of hashes per dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param shiny_tag (`shiny.tag`) Object to validate for a valid title.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_app_title_tag &lt;- function(shiny_tag) {</pre>
+                      <pre class="language-r">calculate_hashes &lt;- function(datanames, datasets) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">292</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(shiny_tag, "shiny.tag")</pre>
+                      <pre class="language-r">  sapply(datanames, function(x) rlang::hash(datasets$get_data(x, filtered = FALSE)), simplify = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">293</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(shiny_tag$name == "head")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">31<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/teal_reporter.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  child_names &lt;- vapply(shiny_tag$children, `[[`, character(1L), "name")</pre>
+                      <pre class="language-r">#' @title `TealReportCard`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">31<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(c("title", "link"), child_names, .var.name = "child tags")</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">296</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rel_attr &lt;- shiny_tag$children[[which(child_names == "link")]]$attribs$rel</pre>
+                      <pre class="language-r">#' Child class of [`ReportCard`] that is used for `teal` specific applications.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(</pre>
+                      <pre class="language-r">#' In addition to the parent methods, it supports rendering `teal` specific elements such as</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rel_attr,</pre>
+                      <pre class="language-r">#' the source code, the encodings panel content and the filter panel content as part of the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("icon", "shortcut icon"),</pre>
+                      <pre class="language-r">#' meta data.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "Link tag's rel attribute",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    empty.ok = FALSE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">TealReportCard &lt;- R6::R6Class( # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  classname = "TealReportCard",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  inherit = teal.reporter::ReportCard,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Build app title with favicon</pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @description Appends the source code to the `content` meta data of this `TealReportCard`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A helper function to create the browser title along with a logo.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param src (`character(1)`) code as text.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`character`) The browser title for the `teal` app.</pre>
+                      <pre class="language-r">    #' @param ... any `rmarkdown` `R` chunk parameter and its value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param favicon (`character`) The path for the icon for the title.</pre>
+                      <pre class="language-r">    #' But `eval` parameter is always set to `FALSE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The image/icon path can be remote or the static path accessible by `shiny`, like the `www/`</pre>
+                      <pre class="language-r">    #' @return Object of class `TealReportCard`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `shiny.tag` containing the element that adds the title and logo to the `shiny` app.</pre>
+                      <pre class="language-r">    #' card &lt;- TealReportCard$new()$append_src(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    #'   "plot(iris)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">build_app_title &lt;- function(</pre>
+                      <pre class="language-r">    #' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    title = "teal app",</pre>
+                      <pre class="language-r">    #' card$get_content()[[1]]$get_content()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    favicon = "https://raw.githubusercontent.com/insightsengineering/hex-stickers/main/PNG/nest.png") {</pre>
+                      <pre class="language-r">    append_src = function(src, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="num">25</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(title, null.ok = TRUE)</pre>
+                      <pre class="language-r">      checkmate::assert_character(src, min.len = 0, max.len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="num">26</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(favicon, null.ok = TRUE)</pre>
+                      <pre class="language-r">      params &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="num">27</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$head(</pre>
+                      <pre class="language-r">      params$eval &lt;- FALSE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="num">28</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$title(title),</pre>
+                      <pre class="language-r">      rblock &lt;- RcodeBlock$new(src)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="num">29</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$link(</pre>
+                      <pre class="language-r">      rblock$set_params(params)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">323</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="num">30</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rel = "icon",</pre>
+                      <pre class="language-r">      self$append_content(rblock)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="num">31</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      href = favicon,</pre>
+                      <pre class="language-r">      self$append_metadata("SRC", src)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="num">32</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sizes = "any"</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    #' @description Appends the filter state list to the `content` and `metadata` of this `TealReportCard`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    #'  If the filter state list has an attribute named `formatted`, it appends it to the card otherwise it uses</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'  the default `yaml::as.yaml` to format the list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Application ID</pre>
+                      <pre class="language-r">    #'  If the filter state list is empty, nothing is appended to the `content`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Creates App ID used to match filter snapshots to application.</pre>
+                      <pre class="language-r">    #' @param fs (`teal_slices`) object returned from [teal_slices()] function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculate app ID that will be used to stamp filter state snapshots.</pre>
+                      <pre class="language-r">    append_fs = function(fs) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">335</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' App ID is a hash of the app's data and modules.</pre>
+                      <pre class="language-r">      checkmate::assert_class(fs, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">336</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' See "transferring snapshots" section in ?snapshot.</pre>
+                      <pre class="language-r">      self$append_text("Filter State", "header3")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">44</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      if (length(fs)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        self$append_content(TealSlicesBlock$new(fs))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        self$append_text("No filters specified.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`teal_data` or `teal_data_module`) as accepted by `init`</pre>
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules`) object as accepted by `init`</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @description Appends the encodings list to the `content` and `metadata` of this `TealReportCard`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A single character string.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param encodings (`list`) list of encodings selections of the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">create_app_id &lt;- function(data, modules) {</pre>
+                      <pre class="language-r">    #' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">37<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module"))</pre>
+                      <pre class="language-r">    #' card &lt;- TealReportCard$new()$append_encodings(list(variable1 = "X"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
+                      <pre class="language-r">    #' card$get_content()[[1]]$get_content()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    append_encodings = function(encodings) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- if (inherits(data, "teal_data")) {</pre>
+                      <pre class="language-r">      checkmate::assert_list(encodings)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">33<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    as.list(data@env)</pre>
+                      <pre class="language-r">      self$append_text("Selected Options", "header3")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(data, "teal_data_module")) {</pre>
+                      <pre class="language-r">      if (requireNamespace("yaml", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deparse1(body(data$server))</pre>
+                      <pre class="language-r">        self$append_text(yaml::as.yaml(encodings, handlers = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">352</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          POSIXct = function(x) format(x, "%Y-%m-%d"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">65</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  modules &lt;- lapply(modules, defunction)</pre>
+                      <pre class="language-r">          POSIXlt = function(x) format(x, "%Y-%m-%d"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">354</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          Date = function(x) format(x, "%Y-%m-%d")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rlang::hash(list(data = data, modules = modules))</pre>
+                      <pre class="language-r">        )), "verbatim")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">357</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">69</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        stop("yaml package is required to format the encodings list")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Go through list and extract bodies of encountered functions as string, recursively.</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">359</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      self$append_metadata("Encodings", encodings)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">361</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">defunction &lt;- function(x) {</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">424<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.list(x)) {</pre>
+                      <pre class="language-r">  private = list()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">90<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(x, defunction)</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">334<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (is.function(x)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">100<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deparse1(body(x))</pre>
+                      <pre class="language-r">#' @title `RcodeBlock`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">234<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x</pre>
+                      <pre class="language-r">TealSlicesBlock &lt;- R6::R6Class( # nolint: object_name_linter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  classname = "TealSlicesBlock",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  inherit = teal.reporter:::TextBlock,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get unique labels</pre>
+                      <pre class="language-r">    #' @description Returns a `TealSlicesBlock` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get unique labels for the modules to avoid namespace conflicts.</pre>
+                      <pre class="language-r">    #' @details Returns a `TealSlicesBlock` object with no content and no parameters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param labels (`character`) vector of labels</pre>
+                      <pre class="language-r">    #' @param content (`teal_slices`) object returned from [teal_slices()] function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param style (`character(1)`) string specifying style to apply.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return (`character`) vector of unique labels</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @return Object of class `TealSlicesBlock`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_unique_labels &lt;- function(labels) {</pre>
+                      <pre class="language-r">    initialize = function(content = teal_slices(), style = "verbatim") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">137<em>x</em></td>
+                    <td class="num">94</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  make.unique(gsub("[^[:alnum:]]", "_", tolower(labels)), sep = "_")</pre>
+                      <pre class="language-r">      self$set_content(content)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">382</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      self$set_style(style)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/teal_reporter.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `TealReportCard`</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Child class of [`ReportCard`] that is used for `teal` specific applications.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' In addition to the parent methods, it supports rendering `teal` specific elements such as</pre>
+                      <pre class="language-r">    #' @description Sets content of this `TealSlicesBlock`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the source code, the encodings panel content and the filter panel content as part of the</pre>
+                      <pre class="language-r">    #' Sets content as `YAML` text which represents a list generated from `teal_slices`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' meta data.</pre>
+                      <pre class="language-r">    #' The list displays limited number of fields from `teal_slice` objects, but this list is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    #' sufficient to conclude which filters were applied.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' When `selected` field in `teal_slice` object is a range, then it is displayed as a "min"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">TealReportCard &lt;- R6::R6Class( # nolint: object_name.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  classname = "TealReportCard",</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = teal.reporter::ReportCard,</pre>
+                      <pre class="language-r">    #' @param content (`teal_slices`) object returned from [teal_slices()] function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Appends the source code to the `content` meta data of this `TealReportCard`.</pre>
+                      <pre class="language-r">    set_content = function(content) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      checkmate::assert_class(content, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param src (`character(1)`) code as text.</pre>
+                      <pre class="language-r">      if (length(content) != 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... any `rmarkdown` `R` chunk parameter and its value.</pre>
+                      <pre class="language-r">        states_list &lt;- lapply(content, function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' But `eval` parameter is always set to `FALSE`.</pre>
+                      <pre class="language-r">          x_list &lt;- shiny::isolate(as.list(x))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `TealReportCard`, invisibly.</pre>
+                      <pre class="language-r">          if (</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @examples</pre>
+                      <pre class="language-r">            inherits(x_list$choices, c("integer", "numeric", "Date", "POSIXct", "POSIXlt")) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' card &lt;- TealReportCard$new()$append_src(</pre>
+                      <pre class="language-r">              length(x_list$choices) == 2 &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">116</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   "plot(iris)"</pre>
+                      <pre class="language-r">              length(x_list$selected) == 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' )</pre>
+                      <pre class="language-r">          ) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">118</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' card$get_content()[[1]]$get_content()</pre>
+                      <pre class="language-r">            x_list$range &lt;- paste(x_list$selected, collapse = " - ")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">119</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            x_list["selected"] &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    append_src = function(src, ...) {</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">25</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_character(src, min.len = 0, max.len = 1)</pre>
+                      <pre class="language-r">          if (!is.null(x_list$arg)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">26</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">122</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      params &lt;- list(...)</pre>
+                      <pre class="language-r">            x_list$arg &lt;- if (x_list$arg == "subset") "Genes" else "Samples"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">27</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      params$eval &lt;- FALSE</pre>
+                      <pre class="language-r">          }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rblock &lt;- RcodeBlock$new(src)</pre>
+                      <pre class="language-r">          x_list &lt;- x_list[</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rblock$set_params(params)</pre>
+                      <pre class="language-r">            c("dataname", "varname", "experiment", "arg", "expr", "selected", "range", "keep_na", "keep_inf")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          ]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$append_content(rblock)</pre>
+                      <pre class="language-r">          names(x_list) &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$append_metadata("SRC", src)</pre>
+                      <pre class="language-r">            "Dataset name", "Variable name", "Experiment", "Filtering by", "Applied expression",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">130</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">            "Selected Values", "Selected range", "Include NA values", "Include Inf values"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Appends the filter state list to the `content` and `metadata` of this `TealReportCard`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  If the filter state list has an attribute named `formatted`, it appends it to the card otherwise it uses</pre>
+                      <pre class="language-r">          Filter(Negate(is.null), x_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  the default `yaml::as.yaml` to format the list.</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  If the filter state list is empty, nothing is appended to the `content`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">        if (requireNamespace("yaml", quietly = TRUE)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          super$set_content(yaml::as.yaml(states_list))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param fs (`teal_slices`) object returned from [teal_slices()] function.</pre>
+                      <pre class="language-r">        } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">139</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          stop("yaml package is required to format the filter state list")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    append_fs = function(fs) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(fs, "teal_slices")</pre>
+                      <pre class="language-r">      private$teal_slices &lt;- content</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">143</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$append_text("Filter State", "header3")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (length(fs)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        self$append_content(TealSlicesBlock$new(fs))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        self$append_text("No filters specified.")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Appends the encodings list to the `content` and `metadata` of this `TealReportCard`.</pre>
+                      <pre class="language-r">    #' @description Create the `RcodeBlock` from a list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' @param x (named `list`) with two fields `c("text", "params")`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param encodings (`list`) list of encodings selections of the `teal` app.</pre>
+                      <pre class="language-r">    #' Use the `get_available_params` method to get all possible parameters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @return `self`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #' @examples</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #' card &lt;- TealReportCard$new()$append_encodings(list(variable1 = "X"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #' card$get_content()[[1]]$get_content()</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    append_encodings = function(encodings) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_list(encodings)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      self$append_text("Selected Options", "header3")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (requireNamespace("yaml", quietly = TRUE)) {</pre>
+                      <pre class="language-r">    from_list = function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">150</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$append_text(yaml::as.yaml(encodings, handlers = list(</pre>
+                      <pre class="language-r">      checkmate::assert_list(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">151</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          POSIXct = function(x) format(x, "%Y-%m-%d"),</pre>
+                      <pre class="language-r">      checkmate::assert_names(names(x), must.include = c("teal_slices"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">152</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          POSIXlt = function(x) format(x, "%Y-%m-%d"),</pre>
+                      <pre class="language-r">      self$set_content(x$teal_slices)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">153</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          Date = function(x) format(x, "%Y-%m-%d")</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )), "verbatim")</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    #' @description Convert the `RcodeBlock` to a list.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">69</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stop("yaml package is required to format the encodings list")</pre>
+                      <pre class="language-r">    #' @return named `list` with a text and `params`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$append_metadata("Encodings", encodings)</pre>
+                      <pre class="language-r">    to_list = function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">159</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">      list(teal_slices = private$teal_slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list()</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">    style = "verbatim",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    teal_slices = NULL # teal_slices</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `RcodeBlock`</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/include_css_js.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">TealSlicesBlock &lt;- R6::R6Class( # nolint: object_name_linter.</pre>
+                      <pre class="language-r">#' Include `CSS` files from `/inst/css/` package directory to application header</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  classname = "TealSlicesBlock",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = teal.reporter:::TextBlock,</pre>
+                      <pre class="language-r">#' `system.file` should not be used to access files in other packages, it does</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Returns a `TealSlicesBlock` object.</pre>
+                      <pre class="language-r">#' as needed. Thus, we do not export this method.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @details Returns a `TealSlicesBlock` object with no content and no parameters.</pre>
+                      <pre class="language-r">#' @param pattern (`character`) pattern of files to be included</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param content (`teal_slices`) object returned from [teal_slices()] function.</pre>
+                      <pre class="language-r">#' @return HTML code that includes `CSS` files.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param style (`character(1)`) string specifying style to apply.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">include_css_files &lt;- function(pattern = "*") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">12</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `TealSlicesBlock`, invisibly.</pre>
+                      <pre class="language-r">  css_files &lt;- list.files(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">13</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    system.file("css", package = "teal", mustWork = TRUE),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">14</td>
+                    <td class="coverage">25<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    pattern = pattern, full.names = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(content = teal_slices(), style = "verbatim") {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$set_content(content)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">17</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$set_style(style)</pre>
+                      <pre class="language-r">  singleton(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">18</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">    tags$head(lapply(css_files, includeCSS))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Sets content of this `TealSlicesBlock`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Sets content as `YAML` text which represents a list generated from `teal_slices`.</pre>
+                      <pre class="language-r">#' Include `JS` files from `/inst/js/` package directory to application header</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' The list displays limited number of fields from `teal_slice` objects, but this list is</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' sufficient to conclude which filters were applied.</pre>
+                      <pre class="language-r">#' `system.file` should not be used to access files in other packages, it does</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' When `selected` field in `teal_slice` object is a range, then it is displayed as a "min"</pre>
+                      <pre class="language-r">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' as needed. Thus, we do not export this method</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param content (`teal_slices`) object returned from [teal_slices()] function.</pre>
+                      <pre class="language-r">#' @param pattern (`character`) pattern of files to be included, passed to `system.file`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
+                      <pre class="language-r">#' @param except (`character`) vector of basename filenames to be excluded</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_content = function(content) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(content, "teal_slices")</pre>
+                      <pre class="language-r">#' @return HTML code that includes `JS` files.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(content) != 0) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        states_list &lt;- lapply(content, function(x) {</pre>
+                      <pre class="language-r">include_js_files &lt;- function(pattern = NULL, except = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">34</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x_list &lt;- shiny::isolate(as.list(x))</pre>
+                      <pre class="language-r">  checkmate::assert_character(except, min.len = 1, any.missing = FALSE, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">35</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (</pre>
+                      <pre class="language-r">  js_files &lt;- list.files(system.file("js", package = "teal", mustWork = TRUE), pattern = pattern, full.names = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">36</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inherits(x_list$choices, c("integer", "numeric", "Date", "POSIXct", "POSIXlt")) &amp;&amp;</pre>
+                      <pre class="language-r">  js_files &lt;- js_files[!(basename(js_files) %in% except)] # no-op if except is NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              length(x_list$choices) == 2 &amp;&amp;</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">38</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              length(x_list$selected) == 2</pre>
+                      <pre class="language-r">  singleton(lapply(js_files, includeScript))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">118</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            x_list$range &lt;- paste(x_list$selected, collapse = " - ")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">119</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_list["selected"] &lt;- NULL</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">#' Run `JS` file from `/inst/js/` package directory</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!is.null(x_list$arg)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">122</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_list$arg &lt;- if (x_list$arg == "subset") "Genes" else "Samples"</pre>
+                      <pre class="language-r">#' This is triggered from the server to execute on the client</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">#' rather than triggered directly on the client.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Unlike `include_js_files` which includes `JavaScript` functions,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x_list &lt;- x_list[</pre>
+                      <pre class="language-r">#' the `run_js` actually executes `JavaScript` functions.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            c("dataname", "varname", "experiment", "arg", "expr", "selected", "range", "keep_na", "keep_inf")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ]</pre>
+                      <pre class="language-r">#' `system.file` should not be used to access files in other packages, it does</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          names(x_list) &lt;- c(</pre>
+                      <pre class="language-r">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Dataset name", "Variable name", "Experiment", "Filtering by", "Applied expression",</pre>
+                      <pre class="language-r">#' as needed. Thus, we do not export this method.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Selected Values", "Selected range", "Include NA values", "Include Inf values"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' @param files (`character`) vector of filenames.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          Filter(Negate(is.null), x_list)</pre>
+                      <pre class="language-r">#' @return returns `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">run_js_files &lt;- function(files) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (requireNamespace("yaml", quietly = TRUE)) {</pre>
+                      <pre class="language-r">  checkmate::assert_character(files, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          super$set_content(yaml::as.yaml(states_list))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">139</td>
-                    <td class="coverage">!</td>
+                    <td class="num">58</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stop("yaml package is required to format the filter state list")</pre>
+                      <pre class="language-r">  lapply(files, function(file) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    shinyjs::runjs(paste0(readLines(system.file("js", file, package = "teal", mustWork = TRUE)), collapse = "\n"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slices &lt;- content</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">  invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Create the `RcodeBlock` from a list.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x (named `list`) with two fields `c("text", "params")`.</pre>
+                      <pre class="language-r">#' Code to include `teal` `CSS` and `JavaScript` files</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Use the `get_available_params` method to get all possible parameters.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
+                      <pre class="language-r">#' This is useful when you want to use the same `JavaScript` and `CSS` files that are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    from_list = function(x) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_list(x)</pre>
+                      <pre class="language-r">#' used with the `teal` application.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_names(names(x), must.include = c("teal_slices"))</pre>
+                      <pre class="language-r">#' This is also useful for running standalone modules in `teal` with the correct</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$set_content(x$teal_slices)</pre>
+                      <pre class="language-r">#' styles.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">#' Also initializes `shinyjs` so you can use it.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description Convert the `RcodeBlock` to a list.</pre>
+                      <pre class="language-r">#' Simply add `include_teal_css_js()` as one of the UI elements.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return named `list` with a text and `params`.</pre>
+                      <pre class="language-r">#' @return A `shiny.tag.list`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    to_list = function() {</pre>
+                      <pre class="language-r">include_teal_css_js &lt;- function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(teal_slices = private$teal_slices)</pre>
+                      <pre class="language-r">  tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    shinyjs::useShinyjs(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">    include_css_files(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">    # init.js is executed from the server</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    style = "verbatim",</pre>
+                      <pre class="language-r">    include_js_files(except = "init.js"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal_slices = NULL # teal_slices</pre>
+                      <pre class="language-r">    shinyjs::hidden(icon("gear")), # add hidden icon to load font-awesome css for icons</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                 </tbody>
               </table>
             </div>
-            <div id="R/module_teal.R" class="hidden">
+            <div id="R/get_rcode_utils.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This module is the main teal module that puts everything together.</pre>
+                      <pre class="language-r">#' Generates library calls from current session info</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal` main app module</pre>
+                      <pre class="language-r">#' Function to create multiple library calls out of current session info to ensure reproducible code works.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -3994,210 +3958,210 @@ <h2>teal coverage - 78.09%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is the main `teal` app that puts everything together.</pre>
+                      <pre class="language-r">#' @return Character vector of `library(&lt;package&gt;)` calls.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It displays the splash UI which is used to fetch the data, possibly</pre>
+                      <pre class="language-r">get_rcode_libraries &lt;- function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">8</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prompting for a password input to fetch the data. Once the data is ready,</pre>
+                      <pre class="language-r">  vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">9</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the splash screen is replaced by the actual `teal` UI that is tabsetted and</pre>
+                      <pre class="language-r">    utils::sessionInfo()$otherPkgs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">10</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' has a filter panel with `datanames` that are relevant for the current tab.</pre>
+                      <pre class="language-r">    function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">11</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">192<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Nested tabs are possible, but we limit it to two nesting levels for reasons</pre>
+                      <pre class="language-r">      paste0("library(", x$Package, ")")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of clarity of the UI.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">13</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    character(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The splash screen functionality can also be used</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for non-delayed data which takes time to load into memory, avoiding</pre>
+                      <pre class="language-r">    # put it into reverse order to correctly simulate executed code</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">16</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `shiny` session timeouts.</pre>
+                      <pre class="language-r">    rev() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">17</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    paste0(sep = "\n") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">18</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Server evaluates the `teal_data_rv` (delayed data mechanism) and creates the</pre>
+                      <pre class="language-r">    paste0(collapse = "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `datasets` object that is shared across modules.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Once it is ready and non-`NULL`, the splash screen is replaced by the</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' main `teal` UI that depends on the data.</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The currently active tab is tracked and the right filter panel</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' updates the displayed datasets to filter for according to the active `datanames`</pre>
+                      <pre class="language-r">get_rcode_str_install &lt;- function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">24</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of the tab.</pre>
+                      <pre class="language-r">  code_string &lt;- getOption("teal.load_nest_code")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">25</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (is.character(code_string)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">26</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It is written as a `shiny` module so it can be added into other apps as well.</pre>
+                      <pre class="language-r">    code_string</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">28</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_teal</pre>
+                      <pre class="language-r">    "# Add any code to install/load your NEST environment here\n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams module_teal_with_splash</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param splash_ui (`shiny.tag`) UI to display initially,</pre>
+                      <pre class="language-r">#' Get datasets code</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   can be a splash screen or a `shiny` module UI. For the latter, see</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [init()] about how to call the corresponding server function.</pre>
+                      <pre class="language-r">#' Retrieve complete code to create, verify, and filter a dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -4211,231 +4175,231 @@ <h2>teal coverage - 78.09%</h2>
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param teal_data_rv (`reactive`)</pre>
+                      <pre class="language-r">#' @param datanames (`character`) names of datasets to extract code from</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   returns the `teal_data`, only evaluated once, `NULL` value is ignored</pre>
+                      <pre class="language-r">#' @param datasets (`FilteredData`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param hashes named (`list`) of hashes per dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Returns a `reactive` expression which returns the currently active module.</pre>
+                      <pre class="language-r">#' @return Character string concatenated from the following elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'  - data pre-processing code (from `data` argument in `init`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'  - hash check of loaded objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'  - filter code (if any)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal</pre>
+                      <pre class="language-r">get_datasets_code &lt;- function(datanames, datasets, hashes) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_teal &lt;- function(id,</pre>
+                      <pre class="language-r">  # preprocessing code</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">48</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    splash_ui = tags$h2("Starting the Teal App"),</pre>
+                      <pre class="language-r">  str_prepro &lt;- attr(datasets, "preprocessing_code")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">49</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    title = build_app_title(),</pre>
+                      <pre class="language-r">  if (length(str_prepro) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">50</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    header = tags$p(),</pre>
+                      <pre class="language-r">    str_prepro &lt;- "message('Preprocessing is empty')"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    footer = tags$p()) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">52</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    str_prepro &lt;- paste(str_prepro, collapse = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">54</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(splash_ui, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # hash checks</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.character(title)) {</pre>
+                      <pre class="language-r">  str_hash &lt;- vapply(datanames, function(dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    title &lt;- build_app_title(title)</pre>
+                      <pre class="language-r">    sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      "stopifnot(%s == %s)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate_app_title_tag(title)</pre>
+                      <pre class="language-r">      deparse1(bquote(rlang::hash(.(as.name(dataname))))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      deparse1(hashes[[dataname]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">  }, character(1))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "header",</pre>
+                      <pre class="language-r">  str_hash &lt;- paste(str_hash, collapse = "\n")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">64</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(header),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">65</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(header, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">  # filter expressions</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  str_filter &lt;- teal.slice::get_filter_expr(datasets, datanames)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (checkmate::test_string(header)) {</pre>
+                      <pre class="language-r">  if (str_filter == "") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    header &lt;- tags$p(header)</pre>
+                      <pre class="language-r">    str_filter &lt;- character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -4452,10776 +4416,11125 @@ <h2>teal coverage - 78.09%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">  # concatenate all code</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "footer",</pre>
+                      <pre class="language-r">  str_code &lt;- paste(c(str_prepro, str_hash, str_filter), collapse = "\n\n")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(footer),</pre>
+                      <pre class="language-r">  sprintf("%s\n", str_code)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">74</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(footer, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">25<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (checkmate::test_string(footer)) {</pre>
+                      <pre class="language-r">#' Get client timezone</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    footer &lt;- tags$p(footer)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' User timezone in the browser may be different to the one on the server.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' This script can be run to register a `shiny` input which contains information about the timezone in the browser.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param ns (`function`) namespace function passed from the `session` object in the `shiny` server.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Once the data is loaded, we will remove this element and add the real teal UI instead</pre>
+                      <pre class="language-r">#'  For `shiny` modules this will allow for proper name spacing of the registered input.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  splash_ui &lt;- tags$div(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # id so we can remove the splash screen once ready, which is the first child of this container</pre>
+                      <pre class="language-r">#' @return (`shiny`) input variable accessible with `input$tz` which is a (`character`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = ns("main_ui_container"),</pre>
+                      <pre class="language-r">#'  string containing the timezone of the browser/client.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # we put it into a div, so it can easily be removed as a whole, also when it is a tagList (and not</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # just the first item of the tagList)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$div(splash_ui)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">get_client_timezone &lt;- function(ns) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">15</td>
+                    <td class="coverage">36<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  script &lt;- sprintf(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">16</td>
+                    <td class="coverage">36<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    "Shiny.setInputValue(`%s`, Intl.DateTimeFormat().resolvedOptions().timeZone)",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">17</td>
+                    <td class="coverage">36<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ns("timezone")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">19</td>
+                    <td class="coverage">36<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  shinyjs::runjs(script) # function does not return anything</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">20</td>
+                    <td class="coverage">36<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  invisible(NULL)</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">}</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # show busy icon when `shiny` session is busy computing stuff</pre>
+                      <pre class="language-r">#' Resolve the expected bootstrap theme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # based on https://stackoverflow.com/questions/17325521/r-shiny-display-loading-message-while-function-is-running/22475216#22475216 # nolint: line_length.</pre>
+                      <pre class="language-r">#' @noRd</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @keywords internal</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">get_teal_bs_theme &lt;- function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">27</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny_busy_message_panel &lt;- conditionalPanel(</pre>
+                      <pre class="language-r">  bs_theme &lt;- getOption("teal.bs_theme")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">28</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    condition = "(($('html').hasClass('shiny-busy')) &amp;&amp; (document.getElementById('shiny-notification-panel') == null))", # nolint: line_length.</pre>
+                      <pre class="language-r">  if (is.null(bs_theme)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">29</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$div(</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">30</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      icon("arrows-rotate", "spin fa-spin"),</pre>
+                      <pre class="language-r">  } else if (!inherits(bs_theme, "bs_theme")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">31</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Computing ...",</pre>
+                      <pre class="language-r">    warning("teal.bs_theme has to be of a bslib::bs_theme class, the default shiny bootstrap is used.")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # CSS defined in `custom.css`</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">34</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "shinybusymessage"</pre>
+                      <pre class="language-r">    bs_theme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  fluidPage(</pre>
+                      <pre class="language-r">#' Return parentnames along with datanames.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    title = title,</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    theme = get_teal_bs_theme(),</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_teal_css_js(),</pre>
+                      <pre class="language-r">include_parent_datanames &lt;- function(dataname, join_keys) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
+                    <td class="num">42</td>
                     <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$header(header),</pre>
+                      <pre class="language-r">  parents &lt;- character(0)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
+                    <td class="num">43</td>
                     <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$hr(class = "my-2"),</pre>
+                      <pre class="language-r">  for (i in dataname) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">44</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shiny_busy_message_panel,</pre>
+                      <pre class="language-r">    while (length(i) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">45</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    splash_ui,</pre>
+                      <pre class="language-r">      parent_i &lt;- teal.data::parent(join_keys, i)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">46</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$hr(),</pre>
+                      <pre class="language-r">      parents &lt;- c(parent_i, parents)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">47</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$footer(</pre>
+                      <pre class="language-r">      i &lt;- parent_i</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        footer,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::verbatim_popup_ui(ns("sessionInfo"), "Session Info", type = "link"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
+                    <td class="num">51</td>
                     <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        textOutput(ns("identifier"))</pre>
+                      <pre class="language-r">  unique(c(parents, dataname))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' Create a `FilteredData`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Create a `FilteredData` object from a `teal_data` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal</pre>
+                      <pre class="language-r">#' @param x (`teal_data`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_teal &lt;- function(id, modules, teal_data_rv, filter = teal_slices()) {</pre>
+                      <pre class="language-r">#' @param datanames (`character`) vector of data set names to include; must be subset of `datanames(x)`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">37<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stopifnot(is.reactive(teal_data_rv))</pre>
+                      <pre class="language-r">#' @return A `FilteredData` object.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @keywords internal</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">teal_data_to_filtered_data &lt;- function(x, datanames = teal_data_datanames(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">  checkmate::assert_class(x, "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_trace("srv_teal initializing the module.")</pre>
+                      <pre class="language-r">  checkmate::assert_character(datanames, min.chars = 1L, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">66</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$identifier &lt;- renderText(</pre>
+                      <pre class="language-r">  ans &lt;- teal.slice::init_filtered_data(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste0("Pid:", Sys.getpid(), " Token:", substr(session$token, 25, 32))</pre>
+                      <pre class="language-r">    x = sapply(datanames, function(dn) x[[dn]], simplify = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    join_keys = teal.data::join_keys(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">  # Piggy-back pre-processing code for datasets of interest so that filtering code can be appended later.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">71</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "sessionInfo",</pre>
+                      <pre class="language-r">  attr(ans, "preprocessing_code") &lt;- teal.data::get_code(x, datanames = datanames, check_names = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">72</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      verbatim_content = utils::capture.output(utils::sessionInfo()),</pre>
+                      <pre class="language-r">  attr(ans, "verification_status") &lt;- x@verified</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">73</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "SessionInfo"</pre>
+                      <pre class="language-r">  ans</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # `JavaScript` code</pre>
+                      <pre class="language-r">#' Template function for `TealReportCard` creation and customization</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    run_js_files(files = "init.js")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' This function generates a report card with a title,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # set timezone in shiny app</pre>
+                      <pre class="language-r">#' an optional description, and the option to append the filter state list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # timezone is set in the early beginning so it will be available also</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # for `DDL` and all shiny modules</pre>
+                      <pre class="language-r">#' @param title (`character(1)`) title of the card (unless overwritten by label)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_client_timezone(session$ns)</pre>
+                      <pre class="language-r">#' @param label (`character(1)`) label provided by the user when adding the card</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(</pre>
+                      <pre class="language-r">#' @param description (`character(1)`) optional, additional description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      eventExpr = input$timezone,</pre>
+                      <pre class="language-r">#' @param with_filter (`logical(1)`) flag indicating to add filter state</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      once = TRUE,</pre>
+                      <pre class="language-r">#' @param filter_panel_api (`FilterPanelAPI`) object with API that allows the generation</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      handlerExpr = {</pre>
+                      <pre class="language-r">#' of the filter state in the report</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        session$userData$timezone &lt;- input$timezone</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("srv_teal@1 Timezone set to client's timezone: { input$timezone }.")</pre>
+                      <pre class="language-r">#' @return (`TealReportCard`) populated with a title, description and filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">report_card_template &lt;- function(title, label, description = NULL, with_filter, filter_panel_api) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">92</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    reporter &lt;- teal.reporter::Reporter$new()</pre>
+                      <pre class="language-r">  checkmate::assert_string(title)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">93</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is_arg_used(modules, "reporter") &amp;&amp; length(extract_module(modules, "teal_module_previewer")) == 0) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
+                    <td class="num">94</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      modules &lt;- append_module(modules, reporter_previewer_module())</pre>
+                      <pre class="language-r">  checkmate::assert_string(description, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">158</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  checkmate::assert_flag(with_filter)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_class(filter_panel_api, classes = "FilterPanelAPI")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    env &lt;- environment()</pre>
+                      <pre class="language-r">  card &lt;- teal::TealReportCard$new()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">99</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datasets_reactive &lt;- eventReactive(teal_data_rv(), {</pre>
+                      <pre class="language-r">  title &lt;- if (label == "") title else label</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      env$progress &lt;- shiny::Progress$new(session)</pre>
+                      <pre class="language-r">  card$set_name(title)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      env$progress$set(0.25, message = "Setting data")</pre>
+                      <pre class="language-r">  card$append_text(title, "header2")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!is.null(description)) card$append_text(description, "header3")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      # Create list of `FilteredData` objects that reflects structure of `modules`.</pre>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (with_filter) card$append_fs(filter_panel_api$get_filter_state())</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      modules_datasets(teal_data_rv(), modules, filter, teal_data_to_filtered_data(teal_data_rv()))</pre>
+                      <pre class="language-r">  card</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Replace splash / welcome screen once data is loaded ----</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # ignoreNULL to not trigger at the beginning when data is NULL</pre>
+                      <pre class="language-r">#' Check `datanames` in modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # just handle it once because data obtained through delayed loading should</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # usually not change afterwards</pre>
+                      <pre class="language-r">#' This function ensures specified `datanames` in modules match those in the data object,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # if restored from bookmarked state, `filter` is ignored</pre>
+                      <pre class="language-r">#' returning error messages or `TRUE` for successful validation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">36<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(datasets_reactive(), once = TRUE, {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace("srv_teal@5 setting main ui after data was pulled")</pre>
+                      <pre class="language-r">#' @param modules (`teal_modules`) object</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      on.exit(env$progress$close())</pre>
+                      <pre class="language-r">#' @param datanames (`character`) names of datasets available in the `data` object</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      env$progress$set(0.5, message = "Setting up main UI")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets &lt;- datasets_reactive()</pre>
+                      <pre class="language-r">#' @return A `character(1)` containing error message or `TRUE` if validation passes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # main_ui_container contains splash screen first and we remove it and replace it by the real UI</pre>
+                      <pre class="language-r">check_modules_datanames &lt;- function(modules, datanames) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">119</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      removeUI(sprintf("#%s &gt; div:nth-child(1)", session$ns("main_ui_container")))</pre>
+                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      insertUI(</pre>
+                      <pre class="language-r">  checkmate::assert_character(datanames)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selector = paste0("#", session$ns("main_ui_container")),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        where = "beforeEnd",</pre>
+                      <pre class="language-r">  recursive_check_datanames &lt;- function(modules, datanames) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # we put it into a div, so it can easily be removed as a whole, also when it is a tagList (and not</pre>
+                      <pre class="language-r">    # check teal_modules against datanames</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">122<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # just the first item of the tagList)</pre>
+                      <pre class="language-r">    if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">52<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ui = tags$div(ui_tabs_with_filters(</pre>
+                      <pre class="language-r">      sapply(modules$children, function(module) recursive_check_datanames(module, datanames = datanames))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          session$ns("main_ui"),</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">127</td>
+                    <td class="coverage">70<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          modules = modules,</pre>
+                      <pre class="language-r">      extra_datanames &lt;- setdiff(modules$datanames, c("all", datanames))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">70<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          datasets = datasets,</pre>
+                      <pre class="language-r">      if (length(extra_datanames)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filter = filter</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )),</pre>
+                      <pre class="language-r">          "- Module '%s' uses datanames not available in 'data': (%s) not in (%s)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # needed so that the UI inputs are available and can be immediately updated, otherwise, updating may not</pre>
+                      <pre class="language-r">          modules$label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # have any effect as they are ignored when not present</pre>
+                      <pre class="language-r">          toString(dQuote(extra_datanames, q = FALSE)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">133</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        immediate = TRUE</pre>
+                      <pre class="language-r">          toString(dQuote(datanames, q = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # must make sure that this is only executed once as modules assume their observers are only</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # registered once (calling server functions twice would trigger observers twice each time)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">138</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      srv_tabs_with_filters(</pre>
+                      <pre class="language-r">  check_datanames &lt;- unlist(recursive_check_datanames(modules, datanames))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">139</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = "main_ui",</pre>
+                      <pre class="language-r">  if (length(check_datanames)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">140</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        datasets = datasets,</pre>
+                      <pre class="language-r">    paste(check_datanames, collapse = "\n")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modules = modules,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        reporter = reporter,</pre>
+                      <pre class="language-r">    TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        filter = filter</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#' Check `datanames` in filters</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/get_rcode_utils.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Generates library calls from current session info</pre>
+                      <pre class="language-r">#' This function checks whether `datanames` in filters correspond to those in `data`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">149</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' returning character vector with error messages or `TRUE` if all checks pass.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function to create multiple library calls out of current session info to ensure reproducible code works.</pre>
+                      <pre class="language-r">#' @param filters (`teal_slices`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @param datanames (`character`) names of datasets available in the `data` object</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Character vector of `library(&lt;package&gt;)` calls.</pre>
+                      <pre class="language-r">#' @return A `character(1)` containing error message or TRUE if validation passes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_rcode_libraries &lt;- function() {</pre>
+                      <pre class="language-r">check_filter_datanames &lt;- function(filters, datanames) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">8</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">157</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vapply(</pre>
+                      <pre class="language-r">  checkmate::assert_class(filters, "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">9</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">158</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    utils::sessionInfo()$otherPkgs,</pre>
+                      <pre class="language-r">  checkmate::assert_character(datanames)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # check teal_slices against datanames</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">10</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">161</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(x) {</pre>
+                      <pre class="language-r">  out &lt;- unlist(sapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">11</td>
-                    <td class="coverage">204<em>x</em></td>
+                    <td class="num">162</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste0("library(", x$Package, ")")</pre>
+                      <pre class="language-r">    filters, function(filter) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      dataname &lt;- shiny::isolate(filter$dataname)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">13</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">164</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    character(1)</pre>
+                      <pre class="language-r">      if (!dataname %in% datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # put it into reverse order to correctly simulate executed code</pre>
+                      <pre class="language-r">          "- Filter '%s' refers to dataname not available in 'data':\n %s not in (%s)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">16</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">167</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rev() %&gt;%</pre>
+                      <pre class="language-r">          shiny::isolate(filter$id),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">17</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">168</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(sep = "\n") %&gt;%</pre>
+                      <pre class="language-r">          dQuote(dataname, q = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">18</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(collapse = "")</pre>
+                      <pre class="language-r">          toString(dQuote(datanames, q = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_rcode_str_install &lt;- function() {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">175</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  code_string &lt;- getOption("teal.load_nest_code")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">25</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.character(code_string)) {</pre>
+                      <pre class="language-r">  if (length(out)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">26</td>
+                    <td class="num">177</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    code_string</pre>
+                      <pre class="language-r">    paste(out, collapse = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "# Add any code to install/load your NEST environment here\n"</pre>
+                      <pre class="language-r">    TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Get datasets code</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Retrieve complete code to create, verify, and filter a dataset.</pre>
+                      <pre class="language-r">#' Create filterable data for modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`) names of datasets to extract code from</pre>
+                      <pre class="language-r">#' Converts input data to a `FilteredData` object(s) to allow filtering before passing data to individual modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datasets (`FilteredData`) object</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hashes named (`list`) of hashes per dataset</pre>
+                      <pre class="language-r">#' @param data (`teal_data`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param modules (`teal_modules`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Character string concatenated from the following elements:</pre>
+                      <pre class="language-r">#' @param filters (`teal_slices`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - data pre-processing code (from `data` argument in `init`)</pre>
+                      <pre class="language-r">#' @param filtered_data_singleton A result of `teal_data_to_filtered_data` applied to `data`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - hash check of loaded objects</pre>
+                      <pre class="language-r">#' @return Returns list of same shape as `modules`, containing `FilteredData` at every leaf.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - filter code (if any)</pre>
+                      <pre class="language-r">#' If module specific, each leaf contains different instance, otherwise every leaf contains `filtered_data_singleton`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">modules_datasets &lt;- function(data, modules, filters, filtered_data_singleton = teal_data_to_filtered_data(data)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_datasets_code &lt;- function(datanames, datasets, hashes) {</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "teal_data")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # preprocessing code</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">198</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  str_prepro &lt;- attr(datasets, "preprocessing_code")</pre>
+                      <pre class="language-r">  checkmate::assert_class(filters, "modules_teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (length(str_prepro) == 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">50</td>
-                    <td class="coverage">!</td>
+                    <td class="num">199</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    str_prepro &lt;- "message('Preprocessing is empty')"</pre>
+                      <pre class="language-r">  checkmate::assert_r6(filtered_data_singleton, "FilteredData")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    str_prepro &lt;- paste(str_prepro, collapse = "\n")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                    <td class="num">201</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!isTRUE(attr(filters, "module_specific"))) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # hash checks</pre>
+                      <pre class="language-r">    # subset global filters</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">203</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  str_hash &lt;- vapply(datanames, function(dataname) {</pre>
+                      <pre class="language-r">    slices &lt;- shiny::isolate({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">204</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sprintf(</pre>
+                      <pre class="language-r">      Filter(function(x) x$id %in% attr(filters, "mapping")$global_filters, filters)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">57<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "stopifnot(%s == %s)",</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      deparse1(bquote(rlang::hash(.(as.name(dataname))))),</pre>
+                      <pre class="language-r">    filtered_data_singleton$set_filter_state(slices)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      deparse1(hashes[[dataname]])</pre>
+                      <pre class="language-r">    return(modules_structure(modules, filtered_data_singleton))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, character(1))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  str_hash &lt;- paste(str_hash, collapse = "\n")</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_module")) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # 1. get datanames</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # filter expressions</pre>
+                      <pre class="language-r">    datanames &lt;-</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  str_filter &lt;- teal.slice::get_filter_expr(datasets, datanames)</pre>
+                      <pre class="language-r">      if (is.null(modules$datanames) || identical(modules$datanames, "all")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (str_filter == "") {</pre>
+                      <pre class="language-r">        include_parent_datanames(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">215</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    str_filter &lt;- character(0)</pre>
+                      <pre class="language-r">          teal_data_datanames(data),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">216</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          teal.data::join_keys(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # concatenate all code</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  str_code &lt;- paste(c(str_prepro, str_hash, str_filter), collapse = "\n\n")</pre>
+                      <pre class="language-r">        include_parent_datanames(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">220</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sprintf("%s\n", str_code)</pre>
+                      <pre class="language-r">          modules$datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          teal.data::join_keys(data)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/modules.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create `teal_module` and `teal_modules` objects</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r">    # 2. subset filters (global + dedicated)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    slices &lt;- shiny::isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      Filter(x = filters, f = function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a nested tab structure to embed modules in a `teal` application.</pre>
+                      <pre class="language-r">        x$dataname %in% datanames &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          (x$id %in% attr(filters, "mapping")$global_filters ||</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">            x$id %in% unique(unlist(attr(filters, "mapping")[modules$label]))) # nolint: indentation_linter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `module()` creates an instance of a `teal_module` that can be placed in a `teal` application.</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `modules()` shapes the structure of a the application by organizing `teal_module` within the navigation panel.</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It wraps `teal_module` and `teal_modules` objects in a `teal_modules` object,</pre>
+                      <pre class="language-r">    # 2a. subset include/exclude varnames</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' which results in a nested structure corresponding to the nested tabs in the final application.</pre>
+                      <pre class="language-r">    slices$include_varnames &lt;- attr(slices, "include_varnames")[names(attr(slices, "include_varnames")) %in% datanames]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    slices$exclude_varnames &lt;- attr(slices, "exclude_varnames")[names(attr(slices, "exclude_varnames")) %in% datanames]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Note that for `modules()` `label` comes after `...`, so it must be passed as a named argument,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' otherwise it will be captured by `...`.</pre>
+                      <pre class="language-r">    # 3. instantiate FilteredData</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    filtered_data &lt;- teal_data_to_filtered_data(data, datanames)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The labels `"global_filters"` and `"Report previewer"` are reserved</pre>
+                      <pre class="language-r">    # 4. set state</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' because they are used by the `mapping` argument of [teal_slices()]</pre>
+                      <pre class="language-r">    filtered_data$set_filter_state(slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and the report previewer module [reporter_previewer_module()], respectively.</pre>
+                      <pre class="language-r">    # 5. return</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    return(filtered_data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label (`character(1)`) Label shown in the navigation item for the module or module group.</pre>
+                      <pre class="language-r">  } else if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">243</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   For `modules()` defaults to `"root"`. See `Details`.</pre>
+                      <pre class="language-r">    ans &lt;- lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param server (`function`) `shiny` module with following arguments:</pre>
+                      <pre class="language-r">      modules$children,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `id` - `teal` will set proper `shiny` namespace for this module (see [shiny::moduleServer()]).</pre>
+                      <pre class="language-r">      modules_datasets,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `input`, `output`, `session` - (optional; not recommended) When provided, then [shiny::callModule()]</pre>
+                      <pre class="language-r">      data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    will be used to call a module. From `shiny` 1.5.0, the recommended way is to use</pre>
+                      <pre class="language-r">      filters = filters,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">248</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    [shiny::moduleServer()] instead which doesn't require these arguments.</pre>
+                      <pre class="language-r">      filtered_data_singleton = filtered_data_singleton</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `data` (optional) When provided, the module will be called with `teal_data` object (i.e. a list of</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    reactive (filtered) data specified in the `filters` argument) as the value of this argument.</pre>
+                      <pre class="language-r">    names(ans) &lt;- vapply(modules$children, `[[`, character(1), "label")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `datasets` (optional) When provided, the module will be called with `FilteredData` object as the</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">252</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    value of this argument. (See [`teal.slice::FilteredData`]).</pre>
+                      <pre class="language-r">    return(ans)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `reporter` (optional) When provided, the module will be called with `Reporter` object as the value</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    of this argument. (See [`teal.reporter::Reporter`]).</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">255</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `filter_panel_api` (optional) When provided, the module will be called with `FilterPanelAPI` object</pre>
+                      <pre class="language-r">  stop("something is not right")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    as the value of this argument. (See [`teal.slice::FilterPanelAPI`]).</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `...` (optional) When provided, `server_args` elements will be passed to the module named argument</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    or to the `...`.</pre>
+                      <pre class="language-r"># Returns nested list of same shape as `modules` with `value` at every leaf.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ui (`function`) `shiny` UI module function with following arguments:</pre>
+                      <pre class="language-r">modules_structure &lt;- function(modules, value = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `id` - `teal` will set proper `shiny` namespace for this module.</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_module")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">261</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `...` (optional) When provided, `ui_args` elements will be passed to the module named argument</pre>
+                      <pre class="language-r">    return(value)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    or to the `...`.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filters (`character`) Deprecated. Use `datanames` instead.</pre>
+                      <pre class="language-r">    stats::setNames(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`) A vector with `datanames` that are relevant for the item. The</pre>
+                      <pre class="language-r">      lapply(modules$children, modules_structure, value),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">265</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter panel will automatically update the shown filters to include only</pre>
+                      <pre class="language-r">      vapply(modules$children, `[[`, character(1), "label")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filters in the listed datasets. `NULL` will hide the filter panel,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and the keyword `"all"` will show filters of all datasets. `datanames` also determines</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   a subset of datasets which are appended to the `data` argument in server function.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param server_args (named `list`) with additional arguments passed on to the server function.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ui_args (named `list`) with additional arguments passed on to the UI function.</pre>
+                      <pre class="language-r">#' Wrapper on `teal.data::datanames`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`teal_module` or `teal_modules`) Object to format/print.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param indent (`integer(1)`) Indention level; each nested element is indented one level more.</pre>
+                      <pre class="language-r">#' Special function used in internals of `teal` to return names of datasets even if `datanames`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ...</pre>
+                      <pre class="language-r">#' has not been set.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - For `modules()`: (`teal_module` or `teal_modules`) Objects to wrap into a tab.</pre>
+                      <pre class="language-r">#' @param data (`teal_data`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - For `format()` and `print()`: Arguments passed to other methods.</pre>
+                      <pre class="language-r">#' @return `character`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">teal_data_datanames &lt;- function(data) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `module()` returns an object of class `teal_module`.</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "teal_data")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">279</td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (length(teal.data::datanames(data))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">280</td>
+                    <td class="coverage">161<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `modules()` returns a `teal_modules` object which contains following fields:</pre>
+                      <pre class="language-r">    teal.data::datanames(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `label`: taken from the `label` argument.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">282</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `children`: a list containing objects passed in `...`. List elements are named after</pre>
+                      <pre class="language-r">    ls(teal.code::get_env(data), all.names = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' their `label` attribute converted to a valid `shiny` id.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name teal_modules</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases teal_module</pre>
+                      <pre class="language-r">#' Function for validating the title parameter of `teal::init`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' Checks if the input of the title from `teal::init` will create a valid title and favicon tag.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">#' @param shiny_tag (`shiny.tag`) Object to validate for a valid title.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' module_1 &lt;- module(</pre>
+                      <pre class="language-r">validate_app_title_tag &lt;- function(shiny_tag) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">292</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label = "a module",</pre>
+                      <pre class="language-r">  checkmate::assert_class(shiny_tag, "shiny.tag")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">293</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   server = function(id, data) {</pre>
+                      <pre class="language-r">  checkmate::assert_true(shiny_tag$name == "head")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     moduleServer(</pre>
+                      <pre class="language-r">  child_names &lt;- vapply(shiny_tag$children, `[[`, character(1L), "name")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">295</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       id,</pre>
+                      <pre class="language-r">  checkmate::assert_subset(c("title", "link"), child_names, .var.name = "child tags")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">296</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       module = function(input, output, session) {</pre>
+                      <pre class="language-r">  rel_attr &lt;- shiny_tag$children[[which(child_names == "link")]]$attribs$rel</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         output$data &lt;- renderDataTable(data()[["iris"]])</pre>
+                      <pre class="language-r">  checkmate::assert_subset(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       }</pre>
+                      <pre class="language-r">    rel_attr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">299</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">    c("icon", "shortcut icon"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   },</pre>
+                      <pre class="language-r">    .var.name = "Link tag's rel attribute",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">29<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    empty.ok = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ui = function(id) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tagList(dataTableOutput(ns("data")))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   },</pre>
+                      <pre class="language-r">#' Build app title with favicon</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   datanames = "all"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' A helper function to create the browser title along with a logo.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' module_2 &lt;- module(</pre>
+                      <pre class="language-r">#' @param title (`character`) The browser title for the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label = "another module",</pre>
+                      <pre class="language-r">#' @param favicon (`character`) The path for the icon for the title.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   server = function(id) {</pre>
+                      <pre class="language-r">#' The image/icon path can be remote or the static path accessible by `shiny`, like the `www/`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     moduleServer(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       id,</pre>
+                      <pre class="language-r">#' @return A `shiny.tag` containing the element that adds the title and logo to the `shiny` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       module = function(input, output, session) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         output$text &lt;- renderText("Another Module")</pre>
+                      <pre class="language-r">build_app_title &lt;- function(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       }</pre>
+                      <pre class="language-r">    title = "teal app",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">    favicon = "https://raw.githubusercontent.com/insightsengineering/hex-stickers/main/PNG/nest.png") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">318</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   },</pre>
+                      <pre class="language-r">  checkmate::assert_string(title, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">319</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ui = function(id) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(favicon, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">320</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
+                      <pre class="language-r">  tags$head(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">321</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tagList(textOutput(ns("text")))</pre>
+                      <pre class="language-r">    tags$title(title),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">322</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   },</pre>
+                      <pre class="language-r">    tags$link(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">323</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   datanames = NULL</pre>
+                      <pre class="language-r">      rel = "icon",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">324</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      href = favicon,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">325</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      sizes = "any"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' modules &lt;- modules(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label = "modules",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label = "nested modules",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module_1</pre>
+                      <pre class="language-r">#' Application ID</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   module_2</pre>
+                      <pre class="language-r">#' Creates App ID used to match filter snapshots to application.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Calculate app ID that will be used to stamp filter state snapshots.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">#' App ID is a hash of the app's data and modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
+                      <pre class="language-r">#' See "transferring snapshots" section in ?snapshot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @param data (`teal_data` or `teal_data_module`) as accepted by `init`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param modules (`teal_modules`) object as accepted by `init`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">#' @return A single character string.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_modules</pre>
+                      <pre class="language-r">create_app_id &lt;- function(data, modules) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">345</td>
+                    <td class="coverage">37<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">346</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">module &lt;- function(label = "module",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">348</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   server = function(id, ...) {</pre>
+                      <pre class="language-r">  data &lt;- if (inherits(data, "teal_data")) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">127</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     moduleServer(id, function(input, output, session) {})</pre>
+                      <pre class="language-r">    as.list(data@env)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">350</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   },</pre>
+                      <pre class="language-r">  } else if (inherits(data, "teal_data_module")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    deparse1(body(data$server))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   ui = function(id, ...) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">130</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">353</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     tags$p(paste0("This module has no UI (id: ", id, " )"))</pre>
+                      <pre class="language-r">  modules &lt;- lapply(modules, defunction)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   },</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">35<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  rlang::hash(list(data = data, modules = modules))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   filters,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   datanames = "all",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   server_args = NULL,</pre>
+                      <pre class="language-r">#' Go through list and extract bodies of encountered functions as string, recursively.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   ui_args = NULL) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # argument checking (independent)</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `label`</pre>
+                      <pre class="language-r">defunction &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">177<em>x</em></td>
+                    <td class="num">362</td>
+                    <td class="coverage">424<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">  if (is.list(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">174<em>x</em></td>
+                    <td class="num">363</td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (label == "global_filters") {</pre>
+                      <pre class="language-r">    lapply(x, defunction)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">364</td>
+                    <td class="coverage">334<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">  } else if (is.function(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">365</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("module(label = \"%s\", ...\n  ", label),</pre>
+                      <pre class="language-r">    deparse1(body(x))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">366</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Label 'global_filters' is reserved in teal. Please change to something else.",</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">367</td>
+                    <td class="coverage">234<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      call. = FALSE</pre>
+                      <pre class="language-r">    x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">173<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">370</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (label == "Report previewer") {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">147</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">371</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">#' Get unique labels</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">148</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">372</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("module(label = \"%s\", ...\n  ", label),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">149</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">373</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Label 'Report previewer' is reserved in teal. Please change to something else.",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">150</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      call. = FALSE</pre>
+                      <pre class="language-r">#' Get unique labels for the modules to avoid namespace conflicts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param labels (`character`) vector of labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## server</pre>
+                      <pre class="language-r">#' @return (`character`) vector of unique labels</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">173<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">378</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_function(server)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">173<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">379</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  server_formals &lt;- names(formals(server))</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">173<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">380</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!(</pre>
+                      <pre class="language-r">get_unique_labels &lt;- function(labels) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">173<em>x</em></td>
+                    <td class="num">381</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "id" %in% server_formals ||</pre>
+                      <pre class="language-r">  make.unique(gsub("[^[:alnum:]]", "_", tolower(labels)), sep = "_")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">173<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">382</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all(c("input", "output", "session") %in% server_formals)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/module_snapshot_manager.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )) {</pre>
+                      <pre class="language-r">#' Filter state snapshot management</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\nmodule() `server` argument requires a function with following arguments:",</pre>
+                      <pre class="language-r">#' Capture and restore snapshots of the global (app) filter state.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - id - `teal` will set proper `shiny` namespace for this module.",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - input, output, session (not recommended) - then `shiny::callModule` will be used to call a module.",</pre>
+                      <pre class="language-r">#' This module introduces snapshots: stored descriptions of the filter state of the entire application.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n\nFollowing arguments can be used optionaly:",</pre>
+                      <pre class="language-r">#' Snapshots allow the user to save the current filter state of the application for later use in the session,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - `data` - module will receive list of reactive (filtered) data specified in the `filters` argument",</pre>
+                      <pre class="language-r">#' as well as to save it to file in order to share it with an app developer or other users,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - `datasets` - module will receive `FilteredData`. See `help(teal.slice::FilteredData)`",</pre>
+                      <pre class="language-r">#' who in turn can upload it to their own session.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - `reporter` - module will receive `Reporter`. See `help(teal.reporter::Reporter)`",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - `filter_panel_api` - module will receive `FilterPanelAPI`. (See [teal.slice::FilterPanelAPI]).",</pre>
+                      <pre class="language-r">#' The snapshot manager is accessed through the filter manager, with the cog icon in the top right corner.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - `...` server_args elements will be passed to the module named argument or to the `...`"</pre>
+                      <pre class="language-r">#' At the beginning of a session it presents three icons: a camera, an upload, and an circular arrow.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' Clicking the camera captures a snapshot, clicking the upload adds a snapshot from a file</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' and applies the filter states therein, and clicking the arrow resets initial application state.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">171<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("datasets" %in% server_formals) {</pre>
+                      <pre class="language-r">#' As snapshots are added, they will show up as rows in a table and each will have a select button and a save button.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("Called from module(label = \"%s\", ...)\n  ", label),</pre>
+                      <pre class="language-r">#' @section Server logic:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "`datasets` argument in the server is deprecated and will be removed in the next release. ",</pre>
+                      <pre class="language-r">#' Snapshots are basically `teal_slices` objects, however, since each module is served by a separate instance</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please use `data` instead.",</pre>
+                      <pre class="language-r">#' of `FilteredData` and these objects require shared state, `teal_slice` is a `reactiveVal` so `teal_slices`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      call. = FALSE</pre>
+                      <pre class="language-r">#' cannot be stored as is. Therefore, `teal_slices` are reversibly converted to a list of lists representation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' (attributes are maintained).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Snapshots are stored in a `reactiveVal` as a named list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' The first snapshot is the initial state of the application and the user can add a snapshot whenever they see fit.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## UI</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">171<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_function(ui)</pre>
+                      <pre class="language-r">#' For every snapshot except the initial one, a piece of UI is generated that contains</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">171<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ui_formals &lt;- names(formals(ui))</pre>
+                      <pre class="language-r">#' the snapshot name, a select button to restore that snapshot, and a save button to save it to a file.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">171<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!"id" %in% ui_formals) {</pre>
+                      <pre class="language-r">#' The initial snapshot is restored by a separate "reset" button.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">#' It cannot be saved directly but a user is welcome to capture the initial state as a snapshot and save that.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\nmodule() `ui` argument requires a function with following arguments:",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - id - `teal` will set proper `shiny` namespace for this module.",</pre>
+                      <pre class="language-r">#' @section Snapshot mechanics:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n\nFollowing arguments can be used optionally:",</pre>
+                      <pre class="language-r">#' When a snapshot is captured, the user is prompted to name it.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n - `...` ui_args elements will be passed to the module argument of the same name or to the `...`"</pre>
+                      <pre class="language-r">#' Names are displayed as is but since they are used to create button ids,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' under the hood they are converted to syntactically valid strings.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' New snapshot names are validated so that their valid versions are unique.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">170<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(c("data", "datasets") %in% ui_formals)) {</pre>
+                      <pre class="language-r">#' Leading and trailing white space is trimmed.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("Called from module(label = \"%s\", ...)\n  ", label),</pre>
+                      <pre class="language-r">#' The module can read the global state of the application from `slices_global` and `mapping_matrix`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "UI with `data` or `datasets` argument is no longer accepted.\n  ",</pre>
+                      <pre class="language-r">#' The former provides a list of all existing `teal_slice`s and the latter says which slice is active in which module.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "If some UI inputs depend on data, please move the logic to your server instead.\n  ",</pre>
+                      <pre class="language-r">#' Once a name has been accepted, `slices_global` is converted to a list of lists - a snapshot.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Possible solutions are renderUI() or updateXyzInput() functions."</pre>
+                      <pre class="language-r">#' The snapshot contains the `mapping` attribute of the initial application state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' (or one that has been restored), which may not reflect the current one,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' so `mapping_matrix` is transformed to obtain the current mapping, i.e. a list that,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' when passed to the `mapping` argument of [teal_slices()], would result in the current mapping.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' This is substituted as the snapshot's `mapping` attribute and the snapshot is added to the snapshot list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `filters`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">168<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!missing(filters)) {</pre>
+                      <pre class="language-r">#' To restore app state, a snapshot is retrieved from storage and rebuilt into a `teal_slices` object.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames &lt;- filters</pre>
+                      <pre class="language-r">#' Then state of all `FilteredData` objects (provided in `filtered_data_list`) is cleared</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">207</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    msg &lt;-</pre>
+                      <pre class="language-r">#' and set anew according to the `mapping` attribute of the snapshot.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">208</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "The `filters` argument is deprecated and will be removed in the next release. Please use `datanames` instead."</pre>
+                      <pre class="language-r">#' The snapshot is then set as the current content of `slices_global`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">209</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_warn(msg)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">210</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(msg)</pre>
+                      <pre class="language-r">#' To save a snapshot, the snapshot is retrieved and reassembled just like for restoring,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' and then saved to file with [slices_store()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `datanames` (also including deprecated `filters`)</pre>
+                      <pre class="language-r">#' When a snapshot is uploaded, it will first be added to storage just like a newly created one,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # please note a race condition between datanames set when filters is not missing and data arg in server function</pre>
+                      <pre class="language-r">#' and then used to restore app state much like a snapshot taken from storage.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">168<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.element("data", server_formals) &amp;&amp; !is.null(datanames)) {</pre>
+                      <pre class="language-r">#' Upon clicking the upload icon the user will be prompted for a file to upload</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">50<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    message(sprintf("module \"%s\" server function takes no data so \"datanames\" will be ignored", label))</pre>
+                      <pre class="language-r">#' and may choose to name the new snapshot. The name defaults to the name of the file (the extension is dropped)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">50<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames &lt;- NULL</pre>
+                      <pre class="language-r">#' and normal naming rules apply. Loading the file yields a `teal_slices` object,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' which is disassembled for storage and used directly for restoring app state.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">168<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(datanames, min.len = 1, null.ok = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @section Transferring snapshots:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `server_args`</pre>
+                      <pre class="language-r">#' Snapshots uploaded from disk should only be used in the same application they come from,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(server_args, null.ok = TRUE, names = "named")</pre>
+                      <pre class="language-r">#' _i.e._ an application that uses the same data and the same modules.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">165<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  srv_extra_args &lt;- setdiff(names(server_args), server_formals)</pre>
+                      <pre class="language-r">#' To ensure this is the case, `init` stamps `teal_slices` with an app id that is stored in the `app_id` attribute of</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">165<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(srv_extra_args) &gt; 0 &amp;&amp; !"..." %in% server_formals) {</pre>
+                      <pre class="language-r">#' a `teal_slices` object. When a snapshot is restored from file, its `app_id` is compared to that</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">#' of the current app state and only if the match is the snapshot admitted to the session.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\nFollowing `server_args` elements have no equivalent in the formals of the server:\n",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste(paste(" -", srv_extra_args), collapse = "\n"),</pre>
+                      <pre class="language-r">#' @param id (`character(1)`) `shiny` module id</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n\nUpdate the server arguments by including above or add `...`"</pre>
+                      <pre class="language-r">#' @param slices_global (`reactiveVal`) that contains a `teal_slices` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'                      containing all `teal_slice`s existing in the app, both active and inactive</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param mapping_matrix (`reactive`) that contains a `data.frame` representation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'                       of the mapping of filter state ids (rows) to modules labels (columns);</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `ui_args`</pre>
+                      <pre class="language-r">#'                       all columns are `logical` vectors</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">164<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(ui_args, null.ok = TRUE, names = "named")</pre>
+                      <pre class="language-r">#' @param filtered_data_list non-nested (named `list`) that contains `FilteredData` objects</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">162<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ui_extra_args &lt;- setdiff(names(ui_args), ui_formals)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">162<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(ui_extra_args) &gt; 0 &amp;&amp; !"..." %in% ui_formals) {</pre>
+                      <pre class="language-r">#' @return Nothing is returned.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\nFollowing `ui_args` elements have no equivalent in the formals of UI:\n",</pre>
+                      <pre class="language-r">#' @name snapshot_manager_module</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste(paste(" -", ui_extra_args), collapse = "\n"),</pre>
+                      <pre class="language-r">#' @aliases snapshot snapshot_manager</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n\nUpdate the UI arguments by including above or add `...`"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @author Aleksander Chlebowski</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname snapshot_manager_module</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">161<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">161<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">161<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = label,</pre>
+                      <pre class="language-r">snapshot_manager_ui &lt;- function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">161<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">87</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      server = server, ui = ui, datanames = unique(datanames),</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">161<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">88</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      server_args = server_args, ui_args = ui_args</pre>
+                      <pre class="language-r">  tags$div(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">89</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    class = "snapshot_manager_content",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">90</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    tags$div(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">91</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      class = "snapshot_table_row",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">92</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      tags$span(tags$b("Snapshot manager")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">93</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      actionLink(ns("snapshot_add"), label = NULL, icon = icon("camera"), title = "add snapshot"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">94</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      actionLink(ns("snapshot_load"), label = NULL, icon = icon("upload"), title = "upload snapshot"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">95</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      actionLink(ns("snapshot_reset"), label = NULL, icon = icon("undo"), title = "reset initial state"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">96</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">161<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">98</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "teal_module"</pre>
+                      <pre class="language-r">    uiOutput(ns("snapshot_list"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_modules</pre>
+                      <pre class="language-r">#' @rdname snapshot_manager_module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">modules &lt;- function(..., label = "root") {</pre>
+                      <pre class="language-r">snapshot_manager_srv &lt;- function(id, slices_global, mapping_matrix, filtered_data_list) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">122<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">  checkmate::assert_character(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  submodules &lt;- list(...)</pre>
+                      <pre class="language-r">  checkmate::assert_true(is.reactive(slices_global))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(vapply(submodules, is.character, FUN.VALUE = logical(1)))) {</pre>
+                      <pre class="language-r">  checkmate::assert_class(isolate(slices_global()), "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">  checkmate::assert_true(is.reactive(mapping_matrix))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "The only character argument to modules() must be 'label' and it must be named, ",</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(isolate(mapping_matrix()), null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "change modules('lab', ...) to modules(label = 'lab', ...)"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">263</td>
-                    <td class="coverage"></td>
+                    <td class="num">111</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  checkmate::assert_list(filtered_data_list, types = "FilteredData", any.missing = FALSE, names = "named")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">265</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">118<em>x</em></td>
+                    <td class="num">114</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(submodules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_modules"))</pre>
+                      <pre class="language-r">    ns &lt;- session$ns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # name them so we can more easily access the children</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # beware however that the label of the submodules should not be changed as it must be kept synced</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">115<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  labels &lt;- vapply(submodules, function(submodule) submodule$label, character(1))</pre>
+                      <pre class="language-r">    # Store global filter states ----</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">115<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(submodules) &lt;- get_unique_labels(labels)</pre>
+                      <pre class="language-r">    filter &lt;- isolate(slices_global())</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">115<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">    snapshot_history &lt;- reactiveVal({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">115<em>x</em></td>
+                    <td class="num">119</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">115<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = label,</pre>
+                      <pre class="language-r">        "Initial application state" = as.list(filter, recursive = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">115<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      children = submodules</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">115<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "teal_modules"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    # Snapshot current application state ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    # Name snaphsot.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">279</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    observeEvent(input$snapshot_add, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">280</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">127</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># printing methods ----</pre>
+                      <pre class="language-r">      showModal(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">281</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">128</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        modalDialog(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">282</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">129</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_modules</pre>
+                      <pre class="language-r">          textInput(ns("snapshot_name"), "Name the snapshot", width = "100%", placeholder = "Meaningful, unique name"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">283</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">130</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">          footer = tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">131</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format.teal_module &lt;- function(x, indent = 0, ...) {</pre>
+                      <pre class="language-r">            actionButton(ns("snapshot_name_accept"), "Accept", icon = icon("thumbs-up")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">132</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paste0(paste(rep(" ", indent), collapse = ""), "+ ", x$label, "\n", collapse = "")</pre>
+                      <pre class="language-r">            modalButton(label = "Cancel", icon = icon("thumbs-down"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">287</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">134</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          size = "s"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_modules</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">print.teal_module &lt;- function(x, ...) {</pre>
+                      <pre class="language-r">    # Store snaphsot.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    observeEvent(input$snapshot_name_accept, {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">292</td>
+                    <td class="num">140</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cat(format(x, ...))</pre>
+                      <pre class="language-r">      snapshot_name &lt;- trimws(input$snapshot_name)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">141</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(x)</pre>
+                      <pre class="language-r">      if (identical(snapshot_name, "")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">294</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">142</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">143</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          "Please name the snapshot.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">296</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">144</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          type = "message"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_modules</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">298</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">146</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        updateTextInput(inputId = "snapshot_name", value = "", placeholder = "Meaningful, unique name")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">299</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">147</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format.teal_modules &lt;- function(x, indent = 0, ...) {</pre>
+                      <pre class="language-r">      } else if (is.element(make.names(snapshot_name), make.names(names(snapshot_history())))) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">148</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paste(</pre>
+                      <pre class="language-r">        showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">149</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(</pre>
+                      <pre class="language-r">          "This name is in conflict with other snapshot names. Please choose a different one.",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      paste0(rep(" ", indent), "+ ", x$label, "\n"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">150</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      unlist(lapply(x$children, format, indent = indent + 1, ...))</pre>
+                      <pre class="language-r">          type = "message"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">152</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    collapse = ""</pre>
+                      <pre class="language-r">        updateTextInput(inputId = "snapshot_name", value = "", placeholder = "Meaningful, unique name")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">307</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">154</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        snapshot &lt;- as.list(slices_global(), recursive = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">308</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">155</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        attr(snapshot, "mapping") &lt;- matrix_to_mapping(mapping_matrix())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">309</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">156</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        snapshot_update &lt;- c(snapshot_history(), list(snapshot))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">310</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">157</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_modules</pre>
+                      <pre class="language-r">        names(snapshot_update)[length(snapshot_update)] &lt;- snapshot_name</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">311</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">158</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        snapshot_history(snapshot_update)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">312</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">159</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">print.teal_modules &lt;- print.teal_module</pre>
+                      <pre class="language-r">        removeModal()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        # Reopen filter manager modal by clicking button in the main application.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">314</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">161</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        shinyjs::click(id = "teal-main_ui-filter_manager-show", asis = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># utilities ----</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">## subset or modify modules ----</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Append a `teal_module` to `children` of a `teal_modules` object</pre>
+                      <pre class="language-r">    # Upload a snapshot file ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    # Select file.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">320</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules`)</pre>
+                      <pre class="language-r">    observeEvent(input$snapshot_load, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">321</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">168</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param module (`teal_module`) object to be appended onto the children of `modules`</pre>
+                      <pre class="language-r">      showModal(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">322</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">169</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `teal_modules` object with `module` appended.</pre>
+                      <pre class="language-r">        modalDialog(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">323</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">170</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">append_module &lt;- function(modules, module) {</pre>
+                      <pre class="language-r">          fileInput(ns("snapshot_file"), "Choose snapshot file", accept = ".json", width = "100%"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">171</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
+                      <pre class="language-r">          textInput(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">172</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(module, "teal_module")</pre>
+                      <pre class="language-r">            ns("snapshot_name"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">173</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  modules$children &lt;- c(modules$children, list(module))</pre>
+                      <pre class="language-r">            "Name the snapshot (optional)",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">174</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels &lt;- vapply(modules$children, function(submodule) submodule$label, character(1))</pre>
+                      <pre class="language-r">            width = "100%",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">175</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(modules$children) &lt;- get_unique_labels(labels)</pre>
+                      <pre class="language-r">            placeholder = "Meaningful, unique name"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">176</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  modules</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">330</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">177</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          footer = tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">331</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">178</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            actionButton(ns("snaphot_file_accept"), "Accept", icon = icon("thumbs-up")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">332</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">179</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Extract/Remove module(s) of specific class</pre>
+                      <pre class="language-r">            modalButton(label = "Cancel", icon = icon("thumbs-down"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Given a `teal_module` or a `teal_modules`, return the elements of the structure according to `class`.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules`)</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param class The class name of `teal_module` to be extracted or dropped.</pre>
+                      <pre class="language-r">    # Store new snapshot to list and restore filter states.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">338</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    observeEvent(input$snaphot_file_accept, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">339</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">186</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">      snapshot_name &lt;- trimws(input$snapshot_name)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">340</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">187</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - For `extract_module`, a `teal_module` of class `class` or `teal_modules` containing modules of class `class`.</pre>
+                      <pre class="language-r">      if (identical(snapshot_name, "")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">188</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        snapshot_name &lt;- tools::file_path_sans_ext(input$snapshot_file$name)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - For `drop_module`, the opposite, which is all `teal_modules` of  class other than `class`.</pre>
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">190</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      if (is.element(make.names(snapshot_name), make.names(names(snapshot_history())))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">191</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        showNotification(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">192</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "This name is in conflict with other snapshot names. Please choose a different one.",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">193</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          type = "message"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_management</pre>
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">195</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        updateTextInput(inputId = "snapshot_name", value = "", placeholder = "Meaningful, unique name")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">extract_module &lt;- function(modules, class) {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">72<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">197</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, class)) {</pre>
+                      <pre class="language-r">        # Restore snapshot and verify app compatibility.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">345</td>
+                    <td class="num">198</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules</pre>
+                      <pre class="language-r">        snapshot_state &lt;- try(slices_restore(input$snapshot_file$datapath))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">72<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">199</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(modules, "teal_module")) {</pre>
+                      <pre class="language-r">        if (!inherits(snapshot_state, "modules_teal_slices")) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">200</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">          showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">31<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">201</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">            "File appears to be corrupt.",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">31<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">202</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Filter(function(x) length(x) &gt; 0L, lapply(modules$children, extract_module, class))</pre>
+                      <pre class="language-r">            type = "error"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">351</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">204</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        } else if (!identical(attr(snapshot_state, "app_id"), attr(slices_global(), "app_id"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">352</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">205</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">353</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">206</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">            "This snapshot file is not compatible with the app and cannot be loaded.",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">207</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            type = "warning"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `teal_modules`</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_management</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">drop_module &lt;- function(modules, class) {</pre>
+                      <pre class="language-r">          # Add to snapshot history.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">357</td>
+                    <td class="num">211</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, class)) {</pre>
+                      <pre class="language-r">          snapshot &lt;- as.list(snapshot_state, recursive = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">358</td>
+                    <td class="num">212</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">          snapshot_update &lt;- c(snapshot_history(), list(snapshot))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">359</td>
+                    <td class="num">213</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(modules, "teal_module")) {</pre>
+                      <pre class="language-r">          names(snapshot_update)[length(snapshot_update)] &lt;- snapshot_name</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">360</td>
+                    <td class="num">214</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules</pre>
+                      <pre class="language-r">          snapshot_history(snapshot_update)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">215</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          ### Begin simplified restore procedure. ###</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">361</td>
+                    <td class="num">216</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">          mapping_unfolded &lt;- unfold_mapping(attr(snapshot_state, "mapping"), names(filtered_data_list))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">362</td>
+                    <td class="num">217</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(</pre>
+                      <pre class="language-r">          mapply(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">363</td>
+                    <td class="num">218</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "modules",</pre>
+                      <pre class="language-r">            function(filtered_data, filter_ids) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">364</td>
+                    <td class="num">219</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      c(Filter(function(x) length(x) &gt; 0L, lapply(modules$children, drop_module, class)), label = modules$label)</pre>
+                      <pre class="language-r">              filtered_data$clear_filter_states(force = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">365</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">220</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">              slices &lt;- Filter(function(x) x$id %in% filter_ids, snapshot_state)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">366</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">221</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">              filtered_data$set_filter_state(slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">368</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">223</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            filtered_data = filtered_data_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">369</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">224</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">## read modules ----</pre>
+                      <pre class="language-r">            filter_ids = mapping_unfolded</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">371</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">226</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Does the object make use of the `arg`</pre>
+                      <pre class="language-r">          slices_global(snapshot_state)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">372</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">227</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          removeModal()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_module` or `teal_modules`) object</pre>
+                      <pre class="language-r">          ### End  simplified restore procedure. ###</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param arg (`character(1)`) names of the arguments to be checked against formals of `teal` modules.</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `logical` whether the object makes use of `arg`.</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname is_arg_used</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    # Apply newly added snapshot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">is_arg_used &lt;- function(modules, arg) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">531<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">234</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(arg)</pre>
+                      <pre class="language-r">    # Restore initial state ----</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">528<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">    observeEvent(input$snapshot_reset, {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">236</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    any(unlist(lapply(modules$children, is_arg_used, arg)))</pre>
+                      <pre class="language-r">      s &lt;- "Initial application state"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">479<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">237</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(modules, "teal_module")) {</pre>
+                      <pre class="language-r">      ### Begin restore procedure. ###</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">71<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">238</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_arg_used(modules$server, arg) || is_arg_used(modules$ui, arg)</pre>
+                      <pre class="language-r">      snapshot &lt;- snapshot_history()[[s]]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">408<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">239</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (is.function(modules)) {</pre>
+                      <pre class="language-r">      snapshot_state &lt;- as.teal_slices(snapshot)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">406<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">240</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    isTRUE(arg %in% names(formals(modules)))</pre>
+                      <pre class="language-r">      mapping_unfolded &lt;- unfold_mapping(attr(snapshot_state, "mapping"), names(filtered_data_list))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">386</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">241</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      mapply(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">242</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("is_arg_used function not implemented for this object")</pre>
+                      <pre class="language-r">        function(filtered_data, filter_ids) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">388</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">243</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          filtered_data$clear_filter_states(force = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">389</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">244</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          slices &lt;- Filter(function(x) x$id %in% filter_ids, snapshot_state)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">390</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">245</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          filtered_data$set_filter_state(slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">392</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">247</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get module depth</pre>
+                      <pre class="language-r">        filtered_data = filtered_data_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">393</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">248</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        filter_ids = mapping_unfolded</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Depth starts at 0, so a single `teal.module` has depth 0.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">395</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">250</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Nesting it increases overall depth by 1.</pre>
+                      <pre class="language-r">      slices_global(snapshot_state)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">396</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">251</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      removeModal()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams init</pre>
+                      <pre class="language-r">      ### End restore procedure. ###</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param depth optional integer determining current depth level</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Depth level for given module.</pre>
+                      <pre class="language-r">    # Build snapshot table ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    # Create UI elements and server logic for the snapshot table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">modules_depth &lt;- function(modules, depth = 0L) {</pre>
+                      <pre class="language-r">    # Observers must be tracked to avoid duplication and excess reactivity.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">403</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_module", "teal_modules"))</pre>
+                      <pre class="language-r">    # Remaining elements are tracked likewise for consistency and a slight speed margin.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">404</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_int(depth, lower = 0)</pre>
+                      <pre class="language-r">    observers &lt;- reactiveValues()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">405</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">260</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">    handlers &lt;- reactiveValues()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">406</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">261</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    max(vapply(modules$children, modules_depth, integer(1), depth = depth + 1L))</pre>
+                      <pre class="language-r">    divs &lt;- reactiveValues()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">408</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">263</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    depth</pre>
+                      <pre class="language-r">    observeEvent(snapshot_history(), {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">409</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      lapply(names(snapshot_history())[-1L], function(s) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">410</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">265</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        id_pickme &lt;- sprintf("pickme_%s", make.names(s))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">411</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">266</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        id_saveme &lt;- sprintf("saveme_%s", make.names(s))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">412</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">267</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Retrieve labels from `teal_modules`</pre>
+                      <pre class="language-r">        id_rowme &lt;- sprintf("rowme_%s", make.names(s))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">414</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules`)</pre>
+                      <pre class="language-r">        # Observer for restoring snapshot.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">415</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">270</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` containing the labels of the modules. If the modules are nested,</pre>
+                      <pre class="language-r">        if (!is.element(id_pickme, names(observers))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">416</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">271</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the function returns a nested `list` of labels.</pre>
+                      <pre class="language-r">          observers[[id_pickme]] &lt;- observeEvent(input[[id_pickme]], {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">            ### Begin restore procedure. ###</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">418</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">273</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">module_labels &lt;- function(modules) {</pre>
+                      <pre class="language-r">            snapshot &lt;- snapshot_history()[[s]]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">419</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">274</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
+                      <pre class="language-r">            snapshot_state &lt;- as.teal_slices(snapshot)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">420</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">275</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(modules$children, module_labels)</pre>
+                      <pre class="language-r">            mapping_unfolded &lt;- unfold_mapping(attr(snapshot_state, "mapping"), names(filtered_data_list))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">421</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">276</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">            mapply(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">422</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">277</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules$label</pre>
+                      <pre class="language-r">              function(filtered_data, filter_ids) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">423</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">278</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                filtered_data$clear_filter_states(force = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">424</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">279</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                slices &lt;- Filter(function(x) x$id %in% filter_ids, snapshot_state)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_snapshot_manager.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">280</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Filter state snapshot management</pre>
+                      <pre class="language-r">                filtered_data$set_filter_state(slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">282</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Capture and restore snapshots of the global (app) filter state.</pre>
+                      <pre class="language-r">              filtered_data = filtered_data_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">283</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              filter_ids = mapping_unfolded</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This module introduces snapshots: stored descriptions of the filter state of the entire application.</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">285</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Snapshots allow the user to save the current filter state of the application for later use in the session,</pre>
+                      <pre class="language-r">            slices_global(snapshot_state)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">286</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as well as to save it to file in order to share it with an app developer or other users,</pre>
+                      <pre class="language-r">            removeModal()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' who in turn can upload it to their own session.</pre>
+                      <pre class="language-r">            ### End restore procedure. ###</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The snapshot manager is accessed through the filter manager, with the cog icon in the top right corner.</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' At the beginning of a session it presents three icons: a camera, an upload, and an circular arrow.</pre>
+                      <pre class="language-r">        # Create handler for downloading snapshot.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">291</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Clicking the camera captures a snapshot, clicking the upload adds a snapshot from a file</pre>
+                      <pre class="language-r">        if (!is.element(id_saveme, names(handlers))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">292</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and applies the filter states therein, and clicking the arrow resets initial application state.</pre>
+                      <pre class="language-r">          output[[id_saveme]] &lt;- downloadHandler(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">293</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' As snapshots are added, they will show up as rows in a table and each will have a select button and a save button.</pre>
+                      <pre class="language-r">            filename = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">294</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              sprintf("teal_snapshot_%s_%s.json", s, Sys.Date())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Server logic:</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">296</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Snapshots are basically `teal_slices` objects, however, since each module is served by a separate instance</pre>
+                      <pre class="language-r">            content = function(file) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">297</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of `FilteredData` and these objects require shared state, `teal_slice` is a `reactiveVal` so `teal_slices`</pre>
+                      <pre class="language-r">              snapshot &lt;- snapshot_history()[[s]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">298</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' cannot be stored as is. Therefore, `teal_slices` are reversibly converted to a list of lists representation</pre>
+                      <pre class="language-r">              snapshot_state &lt;- as.teal_slices(snapshot)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">299</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (attributes are maintained).</pre>
+                      <pre class="language-r">              slices_store(tss = snapshot_state, file = file)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Snapshots are stored in a `reactiveVal` as a named list.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">302</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The first snapshot is the initial state of the application and the user can add a snapshot whenever they see fit.</pre>
+                      <pre class="language-r">          handlers[[id_saveme]] &lt;- id_saveme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For every snapshot except the initial one, a piece of UI is generated that contains</pre>
+                      <pre class="language-r">        # Create a row for the snapshot table.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">305</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the snapshot name, a select button to restore that snapshot, and a save button to save it to a file.</pre>
+                      <pre class="language-r">        if (!is.element(id_rowme, names(divs))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">306</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The initial snapshot is restored by a separate "reset" button.</pre>
+                      <pre class="language-r">          divs[[id_rowme]] &lt;- tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">307</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It cannot be saved directly but a user is welcome to capture the initial state as a snapshot and save that.</pre>
+                      <pre class="language-r">            class = "snapshot_table_row",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">308</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            tags$span(tags$h5(s)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">309</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Snapshot mechanics:</pre>
+                      <pre class="language-r">            actionLink(inputId = ns(id_pickme), label = icon("circle-check"), title = "select"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">310</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' When a snapshot is captured, the user is prompted to name it.</pre>
+                      <pre class="language-r">            downloadLink(outputId = ns(id_saveme), label = icon("save"), title = "save to file")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Names are displayed as is but since they are used to create button ids,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' under the hood they are converted to syntactically valid strings.</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' New snapshot names are validated so that their valid versions are unique.</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Leading and trailing white space is trimmed.</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The module can read the global state of the application from `slices_global` and `mapping_matrix`.</pre>
+                      <pre class="language-r">    # Create table to display list of snapshots and their actions.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">317</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The former provides a list of all existing `teal_slice`s and the latter says which slice is active in which module.</pre>
+                      <pre class="language-r">    output$snapshot_list &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">318</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Once a name has been accepted, `slices_global` is converted to a list of lists - a snapshot.</pre>
+                      <pre class="language-r">      rows &lt;- lapply(rev(reactiveValuesToList(divs)), function(d) d)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">319</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The snapshot contains the `mapping` attribute of the initial application state</pre>
+                      <pre class="language-r">      if (length(rows) == 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">320</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (or one that has been restored), which may not reflect the current one,</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">321</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' so `mapping_matrix` is transformed to obtain the current mapping, i.e. a list that,</pre>
+                      <pre class="language-r">          class = "snapshot_manager_placeholder",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">322</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "Snapshots will appear here."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' when passed to the `mapping` argument of [teal_slices()], would result in the current mapping.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is substituted as the snapshot's `mapping` attribute and the snapshot is added to the snapshot list.</pre>
+                      <pre class="language-r">      } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">325</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        rows</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' To restore app state, a snapshot is retrieved from storage and rebuilt into a `teal_slices` object.</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Then state of all `FilteredData` objects (provided in `filtered_data_list`) is cleared</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and set anew according to the `mapping` attribute of the snapshot.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The snapshot is then set as the current content of `slices_global`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">### utility functions ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' To save a snapshot, the snapshot is retrieved and reassembled just like for restoring,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and then saved to file with [slices_store()].</pre>
+                      <pre class="language-r">#' Explicitly enumerate global filters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' When a snapshot is uploaded, it will first be added to storage just like a newly created one,</pre>
+                      <pre class="language-r">#' Transform module mapping such that global filters are explicitly specified for every module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and then used to restore app state much like a snapshot taken from storage.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Upon clicking the upload icon the user will be prompted for a file to upload</pre>
+                      <pre class="language-r">#' @param mapping (named `list`) as stored in mapping parameter of `teal_slices`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and may choose to name the new snapshot. The name defaults to the name of the file (the extension is dropped)</pre>
+                      <pre class="language-r">#' @param module_names (`character`) vector containing names of all modules in the app</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and normal naming rules apply. Loading the file yields a `teal_slices` object,</pre>
+                      <pre class="language-r">#' @return A `named_list` with one element per module, each element containing all filters applied to that module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' which is disassembled for storage and used directly for restoring app state.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Transferring snapshots:</pre>
+                      <pre class="language-r">unfold_mapping &lt;- function(mapping, module_names) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">343</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Snapshots uploaded from disk should only be used in the same application they come from,</pre>
+                      <pre class="language-r">  module_names &lt;- structure(module_names, names = module_names)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">344</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' _i.e._ an application that uses the same data and the same modules.</pre>
+                      <pre class="language-r">  lapply(module_names, function(x) c(mapping[[x]], mapping[["global_filters"]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' To ensure this is the case, `init` stamps `teal_slices` with an app id that is stored in the `app_id` attribute of</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a `teal_slices` object. When a snapshot is restored from file, its `app_id` is compared to that</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of the current app state and only if the match is the snapshot admitted to the session.</pre>
+                      <pre class="language-r">#' Convert mapping matrix to filter mapping specification.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id (`character(1)`) `shiny` module id</pre>
+                      <pre class="language-r">#' Transform a mapping matrix, i.e. a data frame that maps each filter state to each module,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param slices_global (`reactiveVal`) that contains a `teal_slices` object</pre>
+                      <pre class="language-r">#' to a list specification like the one used in the `mapping` attribute of `teal_slices`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'                      containing all `teal_slice`s existing in the app, both active and inactive</pre>
+                      <pre class="language-r">#' Global filters are gathered in one list element.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mapping_matrix (`reactive`) that contains a `data.frame` representation</pre>
+                      <pre class="language-r">#' If a module has no active filters but the global ones, it will not be mentioned in the output.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'                       of the mapping of filter state ids (rows) to modules labels (columns);</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'                       all columns are `logical` vectors</pre>
+                      <pre class="language-r">#' @param mapping_matrix (`data.frame`) of logical vectors where</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filtered_data_list non-nested (named `list`) that contains `FilteredData` objects</pre>
+                      <pre class="language-r">#'                       columns represent modules and row represent `teal_slice`s</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return Named `list` like that in the `mapping` attribute of a `teal_slices` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Nothing is returned.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name snapshot_manager_module</pre>
+                      <pre class="language-r">matrix_to_mapping &lt;- function(mapping_matrix) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">360</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases snapshot snapshot_manager</pre>
+                      <pre class="language-r">  mapping_matrix[] &lt;- lapply(mapping_matrix, function(x) x | is.na(x))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">361</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  global &lt;- vapply(as.data.frame(t(mapping_matrix)), all, logical(1L))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">362</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @author Aleksander Chlebowski</pre>
+                      <pre class="language-r">  global_filters &lt;- names(global[global])</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">363</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  local_filters &lt;- mapping_matrix[!rownames(mapping_matrix) %in% global_filters, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">365</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  mapping &lt;- c(lapply(local_filters, function(x) rownames(local_filters)[x]), list(global_filters = global_filters))</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">366</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  Filter(function(x) length(x) != 0L, mapping)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname snapshot_manager_module</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/modules.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' Create `teal_module` and `teal_modules` objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">snapshot_manager_ui &lt;- function(id) {</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">87</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">88</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$div(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">89</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "snapshot_manager_content",</pre>
+                      <pre class="language-r">#' Create a nested tab structure to embed modules in a `teal` application.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">90</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$div(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">91</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "snapshot_table_row",</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">92</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$span(tags$b("Snapshot manager")),</pre>
+                      <pre class="language-r">#' `module()` creates an instance of a `teal_module` that can be placed in a `teal` application.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      actionLink(ns("snapshot_add"), label = NULL, icon = icon("camera"), title = "add snapshot"),</pre>
+                      <pre class="language-r">#' `modules()` shapes the structure of a the application by organizing `teal_module` within the navigation panel.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">94</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      actionLink(ns("snapshot_load"), label = NULL, icon = icon("upload"), title = "upload snapshot"),</pre>
+                      <pre class="language-r">#' It wraps `teal_module` and `teal_modules` objects in a `teal_modules` object,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">95</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      actionLink(ns("snapshot_reset"), label = NULL, icon = icon("undo"), title = "reset initial state"),</pre>
+                      <pre class="language-r">#' which results in a nested structure corresponding to the nested tabs in the final application.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">96</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#' Note that for `modules()` `label` comes after `...`, so it must be passed as a named argument,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">98</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    uiOutput(ns("snapshot_list"))</pre>
+                      <pre class="language-r">#' otherwise it will be captured by `...`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' The labels `"global_filters"` and `"Report previewer"` are reserved</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' because they are used by the `mapping` argument of [teal_slices()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname snapshot_manager_module</pre>
+                      <pre class="language-r">#' and the report previewer module [reporter_previewer_module()], respectively.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param label (`character(1)`) Label shown in the navigation item for the module or module group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">snapshot_manager_srv &lt;- function(id, slices_global, mapping_matrix, filtered_data_list) {</pre>
+                      <pre class="language-r">#'   For `modules()` defaults to `"root"`. See `Details`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(id)</pre>
+                      <pre class="language-r">#' @param server (`function`) `shiny` module with following arguments:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(is.reactive(slices_global))</pre>
+                      <pre class="language-r">#'  - `id` - `teal` will set proper `shiny` namespace for this module (see [shiny::moduleServer()]).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(isolate(slices_global()), "teal_slices")</pre>
+                      <pre class="language-r">#'  - `input`, `output`, `session` - (optional; not recommended) When provided, then [shiny::callModule()]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(is.reactive(mapping_matrix))</pre>
+                      <pre class="language-r">#'    will be used to call a module. From `shiny` 1.5.0, the recommended way is to use</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(isolate(mapping_matrix()), null.ok = TRUE)</pre>
+                      <pre class="language-r">#'    [shiny::moduleServer()] instead which doesn't require these arguments.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(filtered_data_list, types = "FilteredData", any.missing = FALSE, names = "named")</pre>
+                      <pre class="language-r">#'  - `data` (optional) When provided, the module will be called with `teal_data` object (i.e. a list of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'    reactive (filtered) data specified in the `filters` argument) as the value of this argument.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">#'  - `datasets` (optional) When provided, the module will be called with `FilteredData` object as the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ns &lt;- session$ns</pre>
+                      <pre class="language-r">#'    value of this argument. (See [`teal.slice::FilteredData`]).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  - `reporter` (optional) When provided, the module will be called with `Reporter` object as the value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Store global filter states ----</pre>
+                      <pre class="language-r">#'    of this argument. (See [`teal.reporter::Reporter`]).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter &lt;- isolate(slices_global())</pre>
+                      <pre class="language-r">#'  - `filter_panel_api` (optional) When provided, the module will be called with `FilterPanelAPI` object</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    snapshot_history &lt;- reactiveVal({</pre>
+                      <pre class="language-r">#'    as the value of this argument. (See [`teal.slice::FilterPanelAPI`]).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">#'  - `...` (optional) When provided, `server_args` elements will be passed to the module named argument</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Initial application state" = as.list(filter, recursive = TRUE)</pre>
+                      <pre class="language-r">#'    or to the `...`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @param ui (`function`) `shiny` UI module function with following arguments:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'  - `id` - `teal` will set proper `shiny` namespace for this module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  - `...` (optional) When provided, `ui_args` elements will be passed to the module named argument</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Snapshot current application state ----</pre>
+                      <pre class="language-r">#'    or to the `...`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Name snaphsot.</pre>
+                      <pre class="language-r">#' @param filters (`character`) Deprecated. Use `datanames` instead.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$snapshot_add, {</pre>
+                      <pre class="language-r">#' @param datanames (`character`) A vector with `datanames` that are relevant for the item. The</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">127</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      showModal(</pre>
+                      <pre class="language-r">#'   filter panel will automatically update the shown filters to include only</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">128</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modalDialog(</pre>
+                      <pre class="language-r">#'   filters in the listed datasets. `NULL` will hide the filter panel,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">129</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          textInput(ns("snapshot_name"), "Name the snapshot", width = "100%", placeholder = "Meaningful, unique name"),</pre>
+                      <pre class="language-r">#'   and the keyword `"all"` will show filters of all datasets. `datanames` also determines</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">130</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          footer = tagList(</pre>
+                      <pre class="language-r">#'   a subset of datasets which are appended to the `data` argument in server function.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">131</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            actionButton(ns("snapshot_name_accept"), "Accept", icon = icon("thumbs-up")),</pre>
+                      <pre class="language-r">#' @param server_args (named `list`) with additional arguments passed on to the server function.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">132</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            modalButton(label = "Cancel", icon = icon("thumbs-down"))</pre>
+                      <pre class="language-r">#' @param ui_args (named `list`) with additional arguments passed on to the UI function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">#' @param x (`teal_module` or `teal_modules`) Object to format/print.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">134</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          size = "s"</pre>
+                      <pre class="language-r">#' @param indent (`integer(1)`) Indention level; each nested element is indented one level more.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @param ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' - For `modules()`: (`teal_module` or `teal_modules`) Objects to wrap into a tab.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' - For `format()` and `print()`: Arguments passed to other methods.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Store snaphsot.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$snapshot_name_accept, {</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">140</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      snapshot_name &lt;- trimws(input$snapshot_name)</pre>
+                      <pre class="language-r">#' `module()` returns an object of class `teal_module`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">141</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(snapshot_name, "")) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">142</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        showNotification(</pre>
+                      <pre class="language-r">#' `modules()` returns a `teal_modules` object which contains following fields:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">143</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Please name the snapshot.",</pre>
+                      <pre class="language-r">#' - `label`: taken from the `label` argument.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">144</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          type = "message"</pre>
+                      <pre class="language-r">#' - `children`: a list containing objects passed in `...`. List elements are named after</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' their `label` attribute converted to a valid `shiny` id.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">146</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        updateTextInput(inputId = "snapshot_name", value = "", placeholder = "Meaningful, unique name")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">147</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (is.element(make.names(snapshot_name), make.names(names(snapshot_history())))) {</pre>
+                      <pre class="language-r">#' @name teal_modules</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">148</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        showNotification(</pre>
+                      <pre class="language-r">#' @aliases teal_module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">149</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "This name is in conflict with other snapshot names. Please choose a different one.",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">150</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          type = "message"</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">152</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        updateTextInput(inputId = "snapshot_name", value = "", placeholder = "Meaningful, unique name")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' module_1 &lt;- module(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">154</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        snapshot &lt;- as.list(slices_global(), recursive = TRUE)</pre>
+                      <pre class="language-r">#'   label = "a module",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">155</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        attr(snapshot, "mapping") &lt;- matrix_to_mapping(mapping_matrix())</pre>
+                      <pre class="language-r">#'   server = function(id, data) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">156</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        snapshot_update &lt;- c(snapshot_history(), list(snapshot))</pre>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">157</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        names(snapshot_update)[length(snapshot_update)] &lt;- snapshot_name</pre>
+                      <pre class="language-r">#'       id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">158</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        snapshot_history(snapshot_update)</pre>
+                      <pre class="language-r">#'       module = function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">159</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        removeModal()</pre>
+                      <pre class="language-r">#'         output$data &lt;- renderDataTable(data()[["iris"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Reopen filter manager modal by clicking button in the main application.</pre>
+                      <pre class="language-r">#'       }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">161</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyjs::click(id = "teal-main_ui-filter_manager-show", asis = TRUE)</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'   ui = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Upload a snapshot file ----</pre>
+                      <pre class="language-r">#'     tagList(dataTableOutput(ns("data")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Select file.</pre>
+                      <pre class="language-r">#'   },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$snapshot_load, {</pre>
+                      <pre class="language-r">#'   datanames = "all"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">168</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      showModal(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">169</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modalDialog(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">170</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          fileInput(ns("snapshot_file"), "Choose snapshot file", accept = ".json", width = "100%"),</pre>
+                      <pre class="language-r">#' module_2 &lt;- module(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">171</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          textInput(</pre>
+                      <pre class="language-r">#'   label = "another module",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">172</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("snapshot_name"),</pre>
+                      <pre class="language-r">#'   server = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">173</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Name the snapshot (optional)",</pre>
+                      <pre class="language-r">#'     moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">174</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            width = "100%",</pre>
+                      <pre class="language-r">#'       id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">175</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            placeholder = "Meaningful, unique name"</pre>
+                      <pre class="language-r">#'       module = function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">#'         output$text &lt;- renderText("Another Module")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">177</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          footer = tagList(</pre>
+                      <pre class="language-r">#'       }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">178</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            actionButton(ns("snaphot_file_accept"), "Accept", icon = icon("thumbs-up")),</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">179</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            modalButton(label = "Cancel", icon = icon("thumbs-down"))</pre>
+                      <pre class="language-r">#'   },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   ui = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'     tagList(textOutput(ns("text")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'   },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Store new snapshot to list and restore filter states.</pre>
+                      <pre class="language-r">#'   datanames = NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$snaphot_file_accept, {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">186</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      snapshot_name &lt;- trimws(input$snapshot_name)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">187</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(snapshot_name, "")) {</pre>
+                      <pre class="language-r">#' modules &lt;- modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">188</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        snapshot_name &lt;- tools::file_path_sans_ext(input$snapshot_file$name)</pre>
+                      <pre class="language-r">#'   label = "modules",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   modules(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">190</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">107</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.element(make.names(snapshot_name), make.names(names(snapshot_history())))) {</pre>
+                      <pre class="language-r">#'     label = "nested modules",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        showNotification(</pre>
+                      <pre class="language-r">#'     module_1</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">192</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "This name is in conflict with other snapshot names. Please choose a different one.",</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">193</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          type = "message"</pre>
+                      <pre class="language-r">#'   module_2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">195</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        updateTextInput(inputId = "snapshot_name", value = "", placeholder = "Meaningful, unique name")</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Restore snapshot and verify app compatibility.</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">198</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        snapshot_state &lt;- try(slices_restore(input$snapshot_file$datapath))</pre>
+                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">199</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!inherits(snapshot_state, "modules_teal_slices")) {</pre>
+                      <pre class="language-r">#'   modules = modules</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">200</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          showNotification(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">201</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "File appears to be corrupt.",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">202</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            type = "error"</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">204</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (!identical(attr(snapshot_state, "app_id"), attr(slices_global(), "app_id"))) {</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">205</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          showNotification(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "This snapshot file is not compatible with the app and cannot be loaded.",</pre>
+                      <pre class="language-r">#' @rdname teal_modules</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">207</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            type = "warning"</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">module &lt;- function(label = "module",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Add to snapshot history.</pre>
+                      <pre class="language-r">                   server = function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">211</td>
+                    <td class="num">127</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          snapshot &lt;- as.list(snapshot_state, recursive = TRUE)</pre>
+                      <pre class="language-r">                     moduleServer(id, function(input, output, session) {})</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">212</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          snapshot_update &lt;- c(snapshot_history(), list(snapshot))</pre>
+                      <pre class="language-r">                   },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">213</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          names(snapshot_update)[length(snapshot_update)] &lt;- snapshot_name</pre>
+                      <pre class="language-r">                   ui = function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">214</td>
+                    <td class="num">130</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          snapshot_history(snapshot_update)</pre>
+                      <pre class="language-r">                     tags$p(paste0("This module has no UI (id: ", id, " )"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ### Begin simplified restore procedure. ###</pre>
+                      <pre class="language-r">                   },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">216</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          mapping_unfolded &lt;- unfold_mapping(attr(snapshot_state, "mapping"), names(filtered_data_list))</pre>
+                      <pre class="language-r">                   filters,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">217</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          mapply(</pre>
+                      <pre class="language-r">                   datanames = "all",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">218</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            function(filtered_data, filter_ids) {</pre>
+                      <pre class="language-r">                   server_args = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">219</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              filtered_data$clear_filter_states(force = TRUE)</pre>
+                      <pre class="language-r">                   ui_args = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">220</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              slices &lt;- Filter(function(x) x$id %in% filter_ids, snapshot_state)</pre>
+                      <pre class="language-r">  # argument checking (independent)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">221</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              filtered_data$set_filter_state(slices)</pre>
+                      <pre class="language-r">  ## `label`</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">177<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">223</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">174<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            filtered_data = filtered_data_list,</pre>
+                      <pre class="language-r">  if (label == "global_filters") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">224</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            filter_ids = mapping_unfolded</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">225</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      sprintf("module(label = \"%s\", ...\n  ", label),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">226</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slices_global(snapshot_state)</pre>
+                      <pre class="language-r">      "Label 'global_filters' is reserved in teal. Please change to something else.",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">227</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          removeModal()</pre>
+                      <pre class="language-r">      call. = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ### End  simplified restore procedure. ###</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">230</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">173<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  if (label == "Report previewer") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">231</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">147</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">148</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Apply newly added snapshot.</pre>
+                      <pre class="language-r">      sprintf("module(label = \"%s\", ...\n  ", label),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">234</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # Restore initial state ----</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">149</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$snapshot_reset, {</pre>
+                      <pre class="language-r">      "Label 'Report previewer' is reserved in teal. Please change to something else.",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">236</td>
+                    <td class="num">150</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s &lt;- "Initial application state"</pre>
+                      <pre class="language-r">      call. = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### Begin restore procedure. ###</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">238</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      snapshot &lt;- snapshot_history()[[s]]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">239</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      snapshot_state &lt;- as.teal_slices(snapshot)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">240</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mapping_unfolded &lt;- unfold_mapping(attr(snapshot_state, "mapping"), names(filtered_data_list))</pre>
+                      <pre class="language-r">  ## server</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">241</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">173<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mapply(</pre>
+                      <pre class="language-r">  checkmate::assert_function(server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">242</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">173<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(filtered_data, filter_ids) {</pre>
+                      <pre class="language-r">  server_formals &lt;- names(formals(server))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">243</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">173<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filtered_data$clear_filter_states(force = TRUE)</pre>
+                      <pre class="language-r">  if (!(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">244</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">173<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slices &lt;- Filter(function(x) x$id %in% filter_ids, snapshot_state)</pre>
+                      <pre class="language-r">    "id" %in% server_formals ||</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">245</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">173<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filtered_data$set_filter_state(slices)</pre>
+                      <pre class="language-r">      all(c("input", "output", "session") %in% server_formals)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
+                      <pre class="language-r">  )) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">247</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        filtered_data = filtered_data_list,</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">248</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        filter_ids = mapping_unfolded</pre>
+                      <pre class="language-r">      "\nmodule() `server` argument requires a function with following arguments:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      "\n - id - `teal` will set proper `shiny` namespace for this module.",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">250</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_global(snapshot_state)</pre>
+                      <pre class="language-r">      "\n - input, output, session (not recommended) - then `shiny::callModule` will be used to call a module.",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">251</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      removeModal()</pre>
+                      <pre class="language-r">      "\n\nFollowing arguments can be used optionaly:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### End restore procedure. ###</pre>
+                      <pre class="language-r">      "\n - `data` - module will receive list of reactive (filtered) data specified in the `filters` argument",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">253</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      "\n - `datasets` - module will receive `FilteredData`. See `help(teal.slice::FilteredData)`",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">254</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "\n - `reporter` - module will receive `Reporter`. See `help(teal.reporter::Reporter)`",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Build snapshot table ----</pre>
+                      <pre class="language-r">      "\n - `filter_panel_api` - module will receive `FilterPanelAPI`. (See [teal.slice::FilterPanelAPI]).",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">256</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Create UI elements and server logic for the snapshot table.</pre>
+                      <pre class="language-r">      "\n - `...` server_args elements will be passed to the module named argument or to the `...`"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Observers must be tracked to avoid duplication and excess reactivity.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Remaining elements are tracked likewise for consistency and a slight speed margin.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">173</td>
+                    <td class="coverage">171<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observers &lt;- reactiveValues()</pre>
+                      <pre class="language-r">  if ("datasets" %in% server_formals) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    handlers &lt;- reactiveValues()</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">175</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    divs &lt;- reactiveValues()</pre>
+                      <pre class="language-r">      sprintf("Called from module(label = \"%s\", ...)\n  ", label),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">262</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "`datasets` argument in the server is deprecated and will be removed in the next release. ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(snapshot_history(), {</pre>
+                      <pre class="language-r">      "Please use `data` instead.",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">178</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lapply(names(snapshot_history())[-1L], function(s) {</pre>
+                      <pre class="language-r">      call. = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">265</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">179</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id_pickme &lt;- sprintf("pickme_%s", make.names(s))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">266</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id_saveme &lt;- sprintf("saveme_%s", make.names(s))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">267</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id_rowme &lt;- sprintf("rowme_%s", make.names(s))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Observer for restoring snapshot.</pre>
+                      <pre class="language-r">  ## UI</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">270</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">171<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.element(id_pickme, names(observers))) {</pre>
+                      <pre class="language-r">  checkmate::assert_function(ui)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">271</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">171<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          observers[[id_pickme]] &lt;- observeEvent(input[[id_pickme]], {</pre>
+                      <pre class="language-r">  ui_formals &lt;- names(formals(ui))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">272</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">171<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ### Begin restore procedure. ###</pre>
+                      <pre class="language-r">  if (!"id" %in% ui_formals) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">273</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            snapshot &lt;- snapshot_history()[[s]]</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">274</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            snapshot_state &lt;- as.teal_slices(snapshot)</pre>
+                      <pre class="language-r">      "\nmodule() `ui` argument requires a function with following arguments:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">275</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            mapping_unfolded &lt;- unfold_mapping(attr(snapshot_state, "mapping"), names(filtered_data_list))</pre>
+                      <pre class="language-r">      "\n - id - `teal` will set proper `shiny` namespace for this module.",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">276</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            mapply(</pre>
+                      <pre class="language-r">      "\n\nFollowing arguments can be used optionally:",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">277</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              function(filtered_data, filter_ids) {</pre>
+                      <pre class="language-r">      "\n - `...` ui_args elements will be passed to the module argument of the same name or to the `...`"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">278</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                filtered_data$clear_filter_states(force = TRUE)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">279</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">193</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                slices &lt;- Filter(function(x) x$id %in% filter_ids, snapshot_state)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">280</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">170<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                filtered_data$set_filter_state(slices)</pre>
+                      <pre class="language-r">  if (any(c("data", "datasets") %in% ui_formals)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">281</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              },</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">282</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              filtered_data = filtered_data_list,</pre>
+                      <pre class="language-r">      sprintf("Called from module(label = \"%s\", ...)\n  ", label),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">283</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              filter_ids = mapping_unfolded</pre>
+                      <pre class="language-r">      "UI with `data` or `datasets` argument is no longer accepted.\n  ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">      "If some UI inputs depend on data, please move the logic to your server instead.\n  ",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">285</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            slices_global(snapshot_state)</pre>
+                      <pre class="language-r">      "Possible solutions are renderUI() or updateXyzInput() functions."</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">286</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">200</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            removeModal()</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ### End restore procedure. ###</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Create handler for downloading snapshot.</pre>
+                      <pre class="language-r">  ## `filters`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">291</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">168<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.element(id_saveme, names(handlers))) {</pre>
+                      <pre class="language-r">  if (!missing(filters)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">292</td>
+                    <td class="num">206</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output[[id_saveme]] &lt;- downloadHandler(</pre>
+                      <pre class="language-r">    datanames &lt;- filters</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">293</td>
+                    <td class="num">207</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            filename = function() {</pre>
+                      <pre class="language-r">    msg &lt;-</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">294</td>
+                    <td class="num">208</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              sprintf("teal_snapshot_%s_%s.json", s, Sys.Date())</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">      "The `filters` argument is deprecated and will be removed in the next release. Please use `datanames` instead."</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">296</td>
+                    <td class="num">209</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            content = function(file) {</pre>
+                      <pre class="language-r">    logger::log_warn(msg)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">297</td>
+                    <td class="num">210</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              snapshot &lt;- snapshot_history()[[s]]</pre>
+                      <pre class="language-r">    warning(msg)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">298</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">211</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              snapshot_state &lt;- as.teal_slices(snapshot)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">299</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              slices_store(tss = snapshot_state, file = file)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">  ## `datanames` (also including deprecated `filters`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">  # please note a race condition between datanames set when filters is not missing and data arg in server function</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">302</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">168<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          handlers[[id_saveme]] &lt;- id_saveme</pre>
+                      <pre class="language-r">  if (!is.element("data", server_formals) &amp;&amp; !is.null(datanames)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">303</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">216</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    message(sprintf("module \"%s\" server function takes no data so \"datanames\" will be ignored", label))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">50<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    datanames &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Create a row for the snapshot table.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">305</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">168<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.element(id_rowme, names(divs))) {</pre>
+                      <pre class="language-r">  checkmate::assert_character(datanames, min.len = 1, null.ok = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">306</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">220</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          divs[[id_rowme]] &lt;- tags$div(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">307</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            class = "snapshot_table_row",</pre>
+                  <tr class="never">
+                    <td class="num">221</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ## `server_args`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">308</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$span(tags$h5(s)),</pre>
+                      <pre class="language-r">  checkmate::assert_list(server_args, null.ok = TRUE, names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">309</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">165<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            actionLink(inputId = ns(id_pickme), label = icon("circle-check"), title = "select"),</pre>
+                      <pre class="language-r">  srv_extra_args &lt;- setdiff(names(server_args), server_formals)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">310</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">165<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            downloadLink(outputId = ns(id_saveme), label = icon("save"), title = "save to file")</pre>
+                      <pre class="language-r">  if (length(srv_extra_args) &gt; 0 &amp;&amp; !"..." %in% server_formals) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">311</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">312</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      "\nFollowing `server_args` elements have no equivalent in the formals of the server:\n",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      paste(paste(" -", srv_extra_args), collapse = "\n"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "\n\nUpdate the server arguments by including above or add `...`"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Create table to display list of snapshots and their actions.</pre>
+                      <pre class="language-r">  ## `ui_args`</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">233</td>
+                    <td class="coverage">164<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$snapshot_list &lt;- renderUI({</pre>
+                      <pre class="language-r">  checkmate::assert_list(ui_args, null.ok = TRUE, names = "named")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rows &lt;- lapply(rev(reactiveValuesToList(divs)), function(d) d)</pre>
+                      <pre class="language-r">  ui_extra_args &lt;- setdiff(names(ui_args), ui_formals)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">162<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(rows) == 0L) {</pre>
+                      <pre class="language-r">  if (length(ui_extra_args) &gt; 0 &amp;&amp; !"..." %in% ui_formals) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">236</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div(</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "snapshot_manager_placeholder",</pre>
+                      <pre class="language-r">      "\nFollowing `ui_args` elements have no equivalent in the formals of UI:\n",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          "Snapshots will appear here."</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">323</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">324</td>
-                    <td class="coverage"></td>
+                    <td class="num">238</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">      paste(paste(" -", ui_extra_args), collapse = "\n"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">325</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rows</pre>
+                      <pre class="language-r">      "\n\nUpdate the UI arguments by including above or add `...`"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">243</td>
+                    <td class="coverage">161<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">330</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">161<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">331</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">161<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">### utility functions ----</pre>
+                      <pre class="language-r">      label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">332</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">161<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      server = server, ui = ui, datanames = unique(datanames),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">333</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">161<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Explicitly enumerate global filters.</pre>
+                      <pre class="language-r">      server_args = server_args, ui_args = ui_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">335</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">161<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Transform module mapping such that global filters are explicitly specified for every module.</pre>
+                      <pre class="language-r">    class = "teal_module"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mapping (named `list`) as stored in mapping parameter of `teal_slices`</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param module_names (`character`) vector containing names of all modules in the app</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `named_list` with one element per module, each element containing all filters applied to that module.</pre>
+                      <pre class="language-r">#' @rdname teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">unfold_mapping &lt;- function(mapping, module_names) {</pre>
+                      <pre class="language-r">modules &lt;- function(..., label = "root") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">343</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">257</td>
+                    <td class="coverage">122<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module_names &lt;- structure(module_names, names = module_names)</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">344</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(module_names, function(x) c(mapping[[x]], mapping[["global_filters"]]))</pre>
+                      <pre class="language-r">  submodules &lt;- list(...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">345</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  if (any(vapply(submodules, is.character, FUN.VALUE = logical(1)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">346</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">347</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Convert mapping matrix to filter mapping specification.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">348</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">349</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Transform a mapping matrix, i.e. a data frame that maps each filter state to each module,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">350</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">261</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to a list specification like the one used in the `mapping` attribute of `teal_slices`.</pre>
+                      <pre class="language-r">      "The only character argument to modules() must be 'label' and it must be named, ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">351</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">262</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Global filters are gathered in one list element.</pre>
+                      <pre class="language-r">      "change modules('lab', ...) to modules(label = 'lab', ...)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If a module has no active filters but the global ones, it will not be mentioned in the output.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mapping_matrix (`data.frame`) of logical vectors where</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">355</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">266</td>
+                    <td class="coverage">118<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'                       columns represent modules and row represent `teal_slice`s</pre>
+                      <pre class="language-r">  checkmate::assert_list(submodules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_modules"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Named `list` like that in the `mapping` attribute of a `teal_slices` object.</pre>
+                      <pre class="language-r">  # name them so we can more easily access the children</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  # beware however that the label of the submodules should not be changed as it must be kept synced</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">358</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  labels &lt;- vapply(submodules, function(submodule) submodule$label, character(1))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">359</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">matrix_to_mapping &lt;- function(mapping_matrix) {</pre>
+                      <pre class="language-r">  names(submodules) &lt;- get_unique_labels(labels)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">360</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mapping_matrix[] &lt;- lapply(mapping_matrix, function(x) x | is.na(x))</pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">361</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  global &lt;- vapply(as.data.frame(t(mapping_matrix)), all, logical(1L))</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">362</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  global_filters &lt;- names(global[global])</pre>
+                      <pre class="language-r">      label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">363</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  local_filters &lt;- mapping_matrix[!rownames(mapping_matrix) %in% global_filters, ]</pre>
+                      <pre class="language-r">      children = submodules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">365</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  mapping &lt;- c(lapply(local_filters, function(x) rownames(local_filters)[x]), list(global_filters = global_filters))</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">366</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Filter(function(x) length(x) != 0L, mapping)</pre>
+                      <pre class="language-r">    class = "teal_modules"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/init.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This is the main function from teal to be used by the end-users. Although it delegates</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># directly to `module_teal_with_splash.R`, we keep it in a separate file because its documentation is quite large</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># and it is very end-user oriented. It may also perform more argument checking with more informative</pre>
+                      <pre class="language-r"># printing methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># error messages.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create the server and UI function for the `shiny` app</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">format.teal_module &lt;- function(x, indent = 0, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">285</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  paste0(paste(rep(" ", indent), collapse = ""), "+ ", x$label, "\n", collapse = "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' End-users: This is the most important function for you to start a</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal` app that is composed of `teal` modules.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @rdname teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' When initializing the `teal` app, if `datanames` are not set for the `teal_data` object,</pre>
+                      <pre class="language-r">print.teal_module &lt;- function(x, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">292</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' defaults from the `teal_data` environment will be used.</pre>
+                      <pre class="language-r">  cat(format(x, ...))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">293</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  invisible(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`teal_data` or `teal_data_module`)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For constructing the data object, refer to [teal_data()] and [teal_data_module()].</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`list` or `teal_modules` or `teal_module`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   nested list of `teal_modules` or `teal_module` objects or a single</pre>
+                      <pre class="language-r">#' @rdname teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `teal_modules` or `teal_module` object. These are the specific output modules which</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   will be displayed in the `teal` application. See [modules()] and [module()] for</pre>
+                      <pre class="language-r">format.teal_modules &lt;- function(x, indent = 0, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   more details.</pre>
+                      <pre class="language-r">  paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filter (`teal_slices`)</pre>
+                      <pre class="language-r">    c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">302</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Specifies the initial filter using [teal_slices()].</pre>
+                      <pre class="language-r">      paste0(rep(" ", indent), "+ ", x$label, "\n"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">303</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`shiny.tag` or `character(1)`)</pre>
+                      <pre class="language-r">      unlist(lapply(x$children, format, indent = indent + 1, ...))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   The browser window title. Defaults to a title "teal app" with the icon of NEST.</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Can be created using the `build_app_title()` or</pre>
+                      <pre class="language-r">    collapse = ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   by passing a valid `shiny.tag` which is a head tag with title and link tag.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param header (`shiny.tag` or `character(1)`)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   The header of the app.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param footer (`shiny.tag` or `character(1)`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   The footer of the app.</pre>
+                      <pre class="language-r">#' @rdname teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id (`character`) optional</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   string specifying the `shiny` module id in cases it is used as a `shiny` module</pre>
+                      <pre class="language-r">print.teal_modules &lt;- print.teal_module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rather than a standalone `shiny` app. This is a legacy feature.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Named list with server and UI functions.</pre>
+                      <pre class="language-r"># utilities ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">## subset or modify modules ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Append a `teal_module` to `children` of a `teal_modules` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @include modules.R</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param modules (`teal_modules`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param module (`teal_module`) object to be appended onto the children of `modules`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">#' @return A `teal_modules` object with `module` appended.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = teal_data(</pre>
+                      <pre class="language-r">append_module &lt;- function(modules, module) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">324</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     new_iris = transform(iris, id = seq_len(nrow(iris))),</pre>
+                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">325</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     new_mtcars = transform(mtcars, id = seq_len(nrow(mtcars))),</pre>
+                      <pre class="language-r">  checkmate::assert_class(module, "teal_module")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">326</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     code = "</pre>
+                      <pre class="language-r">  modules$children &lt;- c(modules$children, list(module))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">327</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       new_iris &lt;- transform(iris, id = seq_len(nrow(iris)))</pre>
+                      <pre class="language-r">  labels &lt;- vapply(modules$children, function(submodule) submodule$label, character(1))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">328</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       new_mtcars &lt;- transform(mtcars, id = seq_len(nrow(mtcars)))</pre>
+                      <pre class="language-r">  names(modules$children) &lt;- get_unique_labels(labels)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">329</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "</pre>
+                      <pre class="language-r">  modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module(</pre>
+                      <pre class="language-r">#' Extract/Remove module(s) of specific class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = "data source",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       server = function(input, output, session, data) {},</pre>
+                      <pre class="language-r">#' Given a `teal_module` or a `teal_modules`, return the elements of the structure according to `class`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ui = function(id, ...) tags$div(p("information about data source")),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       datanames = "all"</pre>
+                      <pre class="language-r">#' @param modules (`teal_modules`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">#' @param class The class name of `teal_module` to be extracted or dropped.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     example_module(label = "example teal module"),</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module(</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "Iris Sepal.Length histogram",</pre>
+                      <pre class="language-r">#' - For `extract_module`, a `teal_module` of class `class` or `teal_modules` containing modules of class `class`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       server = function(input, output, session, data) {</pre>
+                      <pre class="language-r">#' - For `drop_module`, the opposite, which is all `teal_modules` of  class other than `class`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         output$hist &lt;- renderPlot(</pre>
+                      <pre class="language-r">#' @rdname module_management</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           hist(data()[["new_iris"]]$Sepal.Length)</pre>
+                      <pre class="language-r">extract_module &lt;- function(modules, class) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">344</td>
+                    <td class="coverage">72<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">  if (inherits(modules, class)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">345</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       },</pre>
+                      <pre class="language-r">    modules</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">346</td>
+                    <td class="coverage">72<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ui = function(id, ...) {</pre>
+                      <pre class="language-r">  } else if (inherits(modules, "teal_module")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">347</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ns &lt;- NS(id)</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">348</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         plotOutput(ns("hist"))</pre>
+                      <pre class="language-r">  } else if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       },</pre>
+                      <pre class="language-r">    Filter(function(x) length(x) &gt; 0L, lapply(modules$children, extract_module, class))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       datanames = "new_iris"</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter = teal_slices(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(dataname = "new_iris", varname = "Species"),</pre>
+                      <pre class="language-r">#' @return `teal_modules`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(dataname = "new_iris", varname = "Sepal.Length"),</pre>
+                      <pre class="language-r">#' @rdname module_management</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(dataname = "new_mtcars", varname = "cyl"),</pre>
+                      <pre class="language-r">drop_module &lt;- function(modules, class) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">357</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     exclude_varnames = list(new_iris = c("Sepal.Width", "Petal.Width")),</pre>
+                      <pre class="language-r">  if (inherits(modules, class)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">358</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module_specific = TRUE,</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">359</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     mapping = list(</pre>
+                      <pre class="language-r">  } else if (inherits(modules, "teal_module")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">360</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       `example teal module` = "new_iris Species",</pre>
+                      <pre class="language-r">    modules</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">361</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       `Iris Sepal.Length histogram` = "new_iris Species",</pre>
+                      <pre class="language-r">  } else if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">362</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       global_filters = "new_mtcars cyl"</pre>
+                      <pre class="language-r">    do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">363</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">      "modules",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">364</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">      c(Filter(function(x) length(x) &gt; 0L, lapply(modules$children, drop_module, class)), label = modules$label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "App title",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   header = tags$h1("Sample App"),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   footer = tags$p("Copyright 2017 - 2023")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">## read modules ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' Does the object make use of the `arg`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init &lt;- function(data,</pre>
+                      <pre class="language-r">#' @param modules (`teal_module` or `teal_modules`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 modules,</pre>
+                      <pre class="language-r">#' @param arg (`character(1)`) names of the arguments to be checked against formals of `teal` modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 filter = teal_slices(),</pre>
+                      <pre class="language-r">#' @return `logical` whether the object makes use of `arg`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 title = build_app_title(),</pre>
+                      <pre class="language-r">#' @rdname is_arg_used</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 header = tags$p(),</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 footer = tags$p(),</pre>
+                      <pre class="language-r">is_arg_used &lt;- function(modules, arg) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">379</td>
+                    <td class="coverage">531<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 id = character(0)) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(arg)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">380</td>
+                    <td class="coverage">528<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_trace("init initializing teal app with: data ('{ class(data) }').")</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">381</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    any(unlist(lapply(modules$children, is_arg_used, arg)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">382</td>
+                    <td class="coverage">479<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # argument checking (independent)</pre>
+                      <pre class="language-r">  } else if (inherits(modules, "teal_module")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">383</td>
+                    <td class="coverage">71<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `data`</pre>
+                      <pre class="language-r">    is_arg_used(modules$server, arg) || is_arg_used(modules$ui, arg)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">384</td>
+                    <td class="coverage">408<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(data, "TealData")) {</pre>
+                      <pre class="language-r">  } else if (is.function(modules)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">108</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">406<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_stop(</pre>
+                      <pre class="language-r">    isTRUE(arg %in% names(formals(modules)))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">109</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">386</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      when = "0.15.0",</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">110</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">387</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      what = "init(data)",</pre>
+                      <pre class="language-r">    stop("is_arg_used function not implemented for this object")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">111</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">388</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">112</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">389</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "TealData is no longer supported. Use teal_data() instead.",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">113</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">390</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Please follow migration instructions https://github.com/insightsengineering/teal/discussions/988."</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' Get module depth</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">394</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module"))</pre>
+                      <pre class="language-r">#' Depth starts at 0, so a single `teal.module` has depth 0.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">395</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Nesting it increases overall depth by 1.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `modules`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">397</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">#' @inheritParams init</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">398</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "modules",</pre>
+                      <pre class="language-r">#' @param depth optional integer determining current depth level</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">399</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(modules, c("teal_modules", "teal_module")),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">400</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_list(modules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_modules"))</pre>
+                      <pre class="language-r">#' @return Depth level for given module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">401</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">402</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(modules, "teal_module")) {</pre>
+                      <pre class="language-r">modules_depth &lt;- function(modules, depth = 0L) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">403</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules &lt;- list(modules)</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_module", "teal_modules"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">404</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  checkmate::assert_int(depth, lower = 0)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">405</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (checkmate::test_list(modules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_modules"))) {</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">406</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules &lt;- do.call(teal::modules, modules)</pre>
+                      <pre class="language-r">    max(vapply(modules$children, modules_depth, integer(1), depth = depth + 1L))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">408</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    depth</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `filter`</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">411</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Retrieve labels from `teal_modules`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## all other arguments</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">414</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">#' @param modules (`teal_modules`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">415</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "title",</pre>
+                      <pre class="language-r">#' @return A `list` containing the labels of the modules. If the modules are nested,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">416</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(title),</pre>
+                      <pre class="language-r">#' the function returns a nested `list` of labels.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">417</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(title, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">module_labels &lt;- function(modules) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="num">419</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_modules")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="num">420</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "header",</pre>
+                      <pre class="language-r">    lapply(modules$children, module_labels)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">421</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(header),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="num">422</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(header, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">    modules$label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">424</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">27<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/module_tabs_with_filters.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "footer",</pre>
+                      <pre class="language-r">#' Add right filter panel into each of the top-level `teal_modules` UIs</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(footer),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(footer, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">#' The [ui_nested_tabs] function returns a nested tabbed UI corresponding</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' to the nested modules.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">#' This function adds the right filter panel to each main tab.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # log</pre>
+                      <pre class="language-r">#' The right filter panel's filter choices affect the `datasets` object. Therefore,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.logger::log_system_info()</pre>
+                      <pre class="language-r">#' all modules using the same `datasets` share the same filters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # argument transformations</pre>
+                      <pre class="language-r">#' This works with nested modules of depth greater than 2, though the filter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `modules` - landing module</pre>
+                      <pre class="language-r">#' panel is inserted at the right of the modules at depth 1 and not at the leaves.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">27<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  landing &lt;- extract_module(modules, "teal_module_landing")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">27<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  landing_module &lt;- NULL</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(landing) == 1L) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">161</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    landing_module &lt;- landing[[1L]]</pre>
+                      <pre class="language-r">#' @name module_tabs_with_filters</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">162</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules &lt;- drop_module(modules, "teal_module_landing")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (length(landing) &gt; 1L) {</pre>
+                      <pre class="language-r">#' @inheritParams module_teal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">164</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Only one `landing_popup_module` can be used.")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param datasets (named `list` of `FilteredData`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   object to store filter state and filtered datasets, shared across modules. For more</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `filter` - app_id attribute</pre>
+                      <pre class="language-r">#'   details see [`teal.slice::FilteredData`]. Structure of the list must be the same as structure</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(filter, "app_id") &lt;- create_app_id(data, modules)</pre>
+                      <pre class="language-r">#'   of the `modules` argument and list names must correspond to the labels in `modules`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   When filter is not module-specific then list contains the same object in all elements.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `filter` - convert teal.slice::teal_slices to teal::teal_slices</pre>
+                      <pre class="language-r">#' @param reporter (`Reporter`) object from `teal.reporter`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  filter &lt;- as.teal_slices(as.list(filter))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # argument checking (interdependent)</pre>
+                      <pre class="language-r">#' A `shiny.tag.list` containing the main menu, placeholders for filters and placeholders for the `teal` modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `filter` - `modules`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isTRUE(attr(filter, "module_specific"))) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_names &lt;- unlist(c(module_labels(modules), "global_filters"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    failed_mod_names &lt;- setdiff(names(attr(filter, "mapping")), module_names)</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(failed_mod_names)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">179</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop(</pre>
+                      <pre class="language-r">#' @rdname module_tabs_with_filters</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">180</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">ui_tabs_with_filters &lt;- function(id, modules, datasets, filter = teal_slices()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">181</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">33</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Some module names in the mapping arguments don't match module labels.\n %s not in %s",</pre>
+                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">182</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toString(failed_mod_names),</pre>
+                      <pre class="language-r">  checkmate::assert_list(datasets, types = c("list", "FilteredData"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">183</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">35</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toString(unique(module_names))</pre>
+                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">37</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  is_module_specific &lt;- isTRUE(attr(filter, "module_specific"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">40</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (anyDuplicated(module_names)) {</pre>
+                      <pre class="language-r">  teal_ui &lt;- ui_nested_tabs(ns("root"), modules = modules, datasets, is_module_specific = is_module_specific)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # In teal we are able to set nested modules with duplicated label.</pre>
+                      <pre class="language-r">  filter_panel_btns &lt;- tags$li(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Because mapping argument bases on the relationship between module-label and filter-id,</pre>
+                      <pre class="language-r">    class = "flex-grow",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # it is possible that module-label in mapping might refer to multiple teal_module (identified by the same label)</pre>
+                      <pre class="language-r">    tags$button(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">192</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">44</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop(</pre>
+                      <pre class="language-r">      class = "btn action-button filter_hamburger", # see sidebar.css for style filter_hamburger</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">193</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">      href = "javascript:void(0)",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">194</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Module labels should be unique when teal_slices(mapping = TRUE). Duplicated labels:\n%s ",</pre>
+                      <pre class="language-r">      onclick = "toggleFilterPanel();", # see sidebar.js</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">195</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toString(module_names[duplicated(module_names)])</pre>
+                      <pre class="language-r">      title = "Toggle filter panels",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      icon("fas fa-bars")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    filter_manager_modal_ui(ns("filter_manager"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">18<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  teal_ui$children[[1]] &lt;- tagAppendChild(teal_ui$children[[1]], filter_panel_btns)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">18<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!is_module_specific) {</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## `data` - `modules`</pre>
+                      <pre class="language-r">    # need to rearrange html so that filter panel is within tabset</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(data, "teal_data")) {</pre>
+                      <pre class="language-r">    tabset_bar &lt;- teal_ui$children[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(teal_data_datanames(data)) == 0) {</pre>
+                      <pre class="language-r">    teal_modules &lt;- teal_ui$children[[2]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("The environment of `data` is empty.")</pre>
+                      <pre class="language-r">    filter_ui &lt;- unlist(datasets)[[1]]$ui_filter_panel(ns("filter_panel"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">206</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # in case of teal_data_module this check is postponed to the srv_teal_with_splash</pre>
+                      <pre class="language-r">      tabset_bar,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_modules_ok &lt;- check_modules_datanames(modules, teal_data_datanames(data))</pre>
+                      <pre class="language-r">      tags$hr(class = "my-2"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!isTRUE(is_modules_ok)) {</pre>
+                      <pre class="language-r">      fluidRow(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_error(is_modules_ok)</pre>
+                      <pre class="language-r">        column(width = 9, teal_modules, class = "teal_primary_col"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert(is_modules_ok, .var.name = "modules")</pre>
+                      <pre class="language-r">        column(width = 3, filter_ui, class = "teal_secondary_col")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_filter_ok &lt;- check_filter_datanames(filter, teal_data_datanames(data))</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">68</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!isTRUE(is_filter_ok)) {</pre>
+                      <pre class="language-r">    teal_ui</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      warning(is_filter_ok)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # we allow app to continue if applied filters are outside</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # of possible data range</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @rdname module_tabs_with_filters</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">srv_tabs_with_filters &lt;- function(id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                  datasets,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Note regarding case `id = character(0)`:</pre>
+                      <pre class="language-r">                                  modules,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # rather than creating a submodule of this module, we directly modify</pre>
+                      <pre class="language-r">                                  reporter = teal.reporter::Reporter$new(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # the UI and server with `id = character(0)` and calling the server function directly</pre>
+                      <pre class="language-r">                                  filter = teal_slices()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res &lt;- list(</pre>
+                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = ui_teal_with_splash(id = id, data = data, title = title, header = header, footer = footer),</pre>
+                      <pre class="language-r">  checkmate::assert_list(datasets, types = c("list", "FilteredData"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = function(input, output, session) {</pre>
+                      <pre class="language-r">  checkmate::assert_class(reporter, "Reporter")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(landing_module)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">228</td>
-                    <td class="coverage">!</td>
+                    <td class="num">81</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        do.call(landing_module$server, c(list(id = "landing_module_shiny_id"), landing_module$server_args))</pre>
+                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      srv_teal_with_splash(id = id, data = data, modules = modules, filter = deep_copy_filter(filter))</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">231</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    logger::log_trace("srv_tabs_with_filters initializing the module.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    is_module_specific &lt;- isTRUE(attr(filter, "module_specific"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_trace("init teal app has been initialized.")</pre>
+                      <pre class="language-r">    manager_out &lt;- filter_manager_modal_srv("filter_manager", filtered_data_list = datasets, filter = filter)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">89</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res</pre>
+                      <pre class="language-r">    active_module &lt;- srv_nested_tabs(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">237</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      id = "root",</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_nested_tabs.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a UI of nested tabs of `teal_modules`</pre>
+                      <pre class="language-r">      datasets = datasets,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      modules = modules,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section `ui_nested_tabs`:</pre>
+                      <pre class="language-r">      reporter = reporter,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Each `teal_modules` is translated to a `tabsetPanel` and each</pre>
+                      <pre class="language-r">      is_module_specific = is_module_specific</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of its children is another tab-module called recursively. The UI of a</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_module` is obtained by calling its UI function.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (!is_module_specific) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The `datasets` argument is required to resolve the `teal` arguments in an</pre>
+                      <pre class="language-r">      active_datanames &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolated context (with respect to reactivity).</pre>
+                      <pre class="language-r">        if (identical(active_module()$datanames, "all")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          singleton$datanames()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section `srv_nested_tabs`:</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This module recursively calls all elements of `modules` and returns currently active one.</pre>
+                      <pre class="language-r">          include_parent_datanames(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `teal_module` returns self as a active module.</pre>
+                      <pre class="language-r">            active_module()$datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `teal_modules` also returns module active within self which is determined by the `input$active_tab`.</pre>
+                      <pre class="language-r">            singleton$get_join_keys()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_nested_tabs</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams module_tabs_with_filters</pre>
+                      <pre class="language-r">      singleton &lt;- unlist(datasets)[[1]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      singleton$srv_filter_panel("filter_panel", active_datanames = active_datanames)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param depth (`integer(1)`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number which helps to determine depth of the modules nesting.</pre>
+                      <pre class="language-r">      observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param is_module_specific (`logical(1)`)</pre>
+                      <pre class="language-r">        eventExpr = active_datanames(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  flag determining if the filter panel is global or module-specific.</pre>
+                      <pre class="language-r">        handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  When set to `TRUE`, a filter panel is called inside of each module tab.</pre>
+                      <pre class="language-r">          script &lt;- if (length(active_datanames()) == 0 || is.null(active_datanames())) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            # hide the filter panel and disable the burger button</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">116</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">            "handleNoActiveDatasets();"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Depending on the class of `modules`, `ui_nested_tabs` returns:</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - `teal_module`: instantiated UI of the module.</pre>
+                      <pre class="language-r">            # show the filter panel and enable the burger button</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - `teal_modules`: `tabsetPanel` with each tab corresponding to recursively</pre>
+                      <pre class="language-r">            "handleActiveDatasetsPresent();"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     calling this function on it.</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          shinyjs::runjs(script)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `srv_nested_tabs` returns a reactive which returns the active module that corresponds to the selected tab.</pre>
+                      <pre class="language-r">        },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ignoreNULL = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
+                      <pre class="language-r">    showNotification("Data loaded - App fully started up")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_nested_tabs &lt;- function(id, modules, datasets, depth = 0L, is_module_specific = FALSE) {</pre>
+                      <pre class="language-r">    logger::log_trace("srv_tabs_with_filters initialized the module")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">50<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">130</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(depth)</pre>
+                      <pre class="language-r">    active_module</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">50<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("ui_nested_tabs", modules)</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/module_teal_with_splash.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r"># This file adds a splash screen for delayed data loading on top of teal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' Add splash screen to `teal` application</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_nested_tabs.default &lt;- function(id, modules, datasets, depth = 0L, is_module_specific = FALSE) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">47</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stop("Modules class not supported: ", paste(class(modules), collapse = " "))</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Displays custom splash screen during initial delayed data loading.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_nested_tabs.teal_modules &lt;- function(id, modules, datasets, depth = 0L, is_module_specific = FALSE) {</pre>
+                      <pre class="language-r">#' This module pauses app initialization pending delayed data loading.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(datasets, types = c("list", "FilteredData"))</pre>
+                      <pre class="language-r">#' This is necessary because the filter panel and modules depend on the data to initialize.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(</pre>
+                      <pre class="language-r">#' `teal_with_splash` follows the `shiny` module convention.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tabsetPanel,</pre>
+                      <pre class="language-r">#' [`init()`] is a wrapper around this that assumes that `teal` it is</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(</pre>
+                      <pre class="language-r">#' the top-level module and cannot be embedded.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # by giving an id, we can reactively respond to tab changes</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">#' Note: It is no longer recommended to embed `teal` in `shiny` apps as a module.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("active_tab"),</pre>
+                      <pre class="language-r">#' but rather use `init` to create a standalone application.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        type = if (modules$label == "root") "pills" else "tabs"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#' @seealso [init()]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lapply(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        names(modules$children),</pre>
+                      <pre class="language-r">#' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(module_id) {</pre>
+                      <pre class="language-r">#'   module id</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          module_label &lt;- modules$children[[module_id]]$label</pre>
+                      <pre class="language-r">#' @inheritParams init</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tabPanel(</pre>
+                      <pre class="language-r">#' @param modules (`teal_modules`) object containing the output modules which</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = module_label,</pre>
+                      <pre class="language-r">#'   will be displayed in the `teal` application. See [modules()] and [module()] for</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            value = module_id, # when clicked this tab value changes input$&lt;tabset panel id&gt;</pre>
+                      <pre class="language-r">#'   more details.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ui_nested_tabs(</pre>
+                      <pre class="language-r">#' @inheritParams shiny::moduleServer</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              id = ns(module_id),</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              modules = modules$children[[module_id]],</pre>
+                      <pre class="language-r">#' Returns a `reactive` expression containing a `teal_data` object when data is loaded or `NULL` when it is not.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              datasets = datasets[[module_label]],</pre>
+                      <pre class="language-r">#' @name module_teal_with_splash</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              depth = depth + 1L,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              is_module_specific = is_module_specific</pre>
+                      <pre class="language-r">#' teal_modules &lt;- modules(example_module())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#' # Shiny app with modular integration of teal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'   ui_teal_with_splash(id = "app1", data = teal_data())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   srv_teal_with_splash(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     id = "app1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
+                      <pre class="language-r">#'     data = teal_data(iris = iris),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'     modules = teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_nested_tabs.teal_module &lt;- function(id, modules, datasets, depth = 0L, is_module_specific = FALSE) {</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(datasets, classes = "FilteredData")</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- c(list(id = ns("module")), modules$ui_args)</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal_ui &lt;- tags$div(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = id,</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "teal_module",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    uiOutput(ns("data_reactive"), inline = TRUE),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tagList(</pre>
+                      <pre class="language-r">#' @rdname module_teal_with_splash</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (depth &gt;= 2L) tags$div(style = "mt-6"),</pre>
+                      <pre class="language-r">ui_teal_with_splash &lt;- function(id,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      do.call(modules$ui, args)</pre>
+                      <pre class="language-r">                                data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                                title = build_app_title(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                                header = tags$p(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                footer = tags$p()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(modules$datanames) &amp;&amp; is_module_specific) {</pre>
+                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fluidRow(</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      column(width = 9, teal_ui, class = "teal_primary_col"),</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      column(</pre>
+                      <pre class="language-r">    .var.name = "title",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        width = 3,</pre>
+                      <pre class="language-r">    checkmate::check_string(title),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">65</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        datasets$ui_filter_panel(ns("module_filter_panel")),</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(title, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "teal_secondary_col"</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    .var.name = "header",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    checkmate::check_string(header),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">25<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::check_multi_class(header, c("shiny.tag", "shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">72</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal_ui</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">25<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .var.name = "footer",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">25<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::check_string(footer),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">25<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::check_multi_class(footer, c("shiny.tag", "shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">25<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
+                      <pre class="language-r">  # Startup splash screen for delayed loading</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_nested_tabs &lt;- function(id, datasets, modules, is_module_specific = FALSE,</pre>
+                      <pre class="language-r">  # We use delayed loading in all cases, even when the data does not need to be fetched.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            reporter = teal.reporter::Reporter$new()) {</pre>
+                      <pre class="language-r">  # This has the benefit that when filtering the data takes a lot of time initially, the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">100<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(modules, c("teal_modules", "teal_module"))</pre>
+                      <pre class="language-r">  # Shiny app does not time out.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(reporter, "Reporter")</pre>
+                      <pre class="language-r">  splash_ui &lt;- if (inherits(data, "teal_data_module")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("srv_nested_tabs", modules)</pre>
+                      <pre class="language-r">    data$ui(ns("teal_data_module"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  } else if (inherits(data, "teal_data")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    tags$div()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  ui_teal(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_nested_tabs.default &lt;- function(id, datasets, modules, is_module_specific = FALSE,</pre>
+                      <pre class="language-r">    id = ns("teal"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    reporter = teal.reporter::Reporter$new()) {</pre>
+                      <pre class="language-r">    splash_ui = tags$div(splash_ui, uiOutput(ns("error"))),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">128</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stop("Modules class not supported: ", paste(class(modules), collapse = " "))</pre>
+                      <pre class="language-r">    title = title,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    header = header,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    footer = footer</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_nested_tabs.teal_modules &lt;- function(id, datasets, modules, is_module_specific = FALSE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         reporter = teal.reporter::Reporter$new()) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">42<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(datasets, types = c("list", "FilteredData"))</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">42<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id = id, module = function(input, output, session) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">42<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_trace("srv_nested_tabs.teal_modules initializing the module { deparse1(modules$label) }.")</pre>
+                      <pre class="language-r">#' @rdname module_teal_with_splash</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">srv_teal_with_splash &lt;- function(id, data, modules, filter = teal_slices()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labels &lt;- vapply(modules$children, `[[`, character(1), "label")</pre>
+                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules_reactive &lt;- sapply(</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      names(modules$children),</pre>
+                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(module_id) {</pre>
+                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">65<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        srv_nested_tabs(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">65<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = module_id,</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">65<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          datasets = datasets[[labels[module_id]]],</pre>
+                      <pre class="language-r">    logger::log_trace("srv_teal_with_splash initializing module with data.")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">65<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          modules = modules$children[[module_id]],</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">65<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is_module_specific = is_module_specific,</pre>
+                      <pre class="language-r">    if (getOption("teal.show_js_log", default = FALSE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">65<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">110</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          reporter = reporter</pre>
+                      <pre class="language-r">      shinyjs::showLog()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">42<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      simplify = FALSE</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    # teal_data_rv contains teal_data object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # either passed to teal::init or returned from teal_data_module</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # when not ready input$active_tab would return NULL - this would fail next reactive</pre>
+                      <pre class="language-r">    teal_data_rv &lt;- if (inherits(data, "teal_data_module")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    input_validated &lt;- eventReactive(input$active_tab, input$active_tab, ignoreNULL = TRUE)</pre>
+                      <pre class="language-r">      data &lt;- data$server(id = "teal_data_module")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_module &lt;- reactive({</pre>
+                      <pre class="language-r">      if (!is.reactive(data)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(modules$children) == 1L) {</pre>
+                      <pre class="language-r">        stop("The `teal_data_module` passed to `data` must return a reactive expression.", call. = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # single tab is active by default</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modules_reactive[[1]]()</pre>
+                      <pre class="language-r">      data</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">33<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    } else if (inherits(data, "teal_data")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">23<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      reactiveVal(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # switch to active tab</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modules_reactive[[input_validated()]]()</pre>
+                      <pre class="language-r">    teal_data_rv_validate &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      # custom module can return error</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      data &lt;- tryCatch(teal_data_rv(), error = function(e) e)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_module</pre>
+                      <pre class="language-r">      # there is an empty reactive cycle on init!</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">      if (inherits(data, "shiny.silent.error") &amp;&amp; identical(data$message, "")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">131</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_nested_tabs</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      # to handle qenv.error</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_nested_tabs.teal_module &lt;- function(id, datasets, modules, is_module_specific = TRUE,</pre>
+                      <pre class="language-r">      if (inherits(data, "qenv.error")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        reporter = teal.reporter::Reporter$new()) {</pre>
+                      <pre class="language-r">        validate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">137</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(datasets, "FilteredData")</pre>
+                      <pre class="language-r">          need(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">138</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_trace("srv_nested_tabs.teal_module initializing the module: { deparse1(modules$label) }.")</pre>
+                      <pre class="language-r">            FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">140</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id = id, module = function(input, output, session) {</pre>
+                      <pre class="language-r">              "Error when executing `teal_data_module` passed to `data`:\n ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">141</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(modules$datanames) &amp;&amp; is_module_specific) {</pre>
+                      <pre class="language-r">              paste(data$message, collapse = "\n"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets$srv_filter_panel("module_filter_panel")</pre>
+                      <pre class="language-r">              "\n Check your inputs or contact app developer if error persists."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Create two triggers to limit reactivity between filter-panel and modules.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # We want to recalculate only visible modules</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # - trigger the data when the tab is selected</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # - trigger module to be called when the tab is selected for the first time</pre>
+                      <pre class="language-r">      # to handle module non-qenv errors</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">149</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    trigger_data &lt;- reactiveVal(1L)</pre>
+                      <pre class="language-r">      if (inherits(data, "error")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">150</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    trigger_module &lt;- reactiveVal(NULL)</pre>
+                      <pre class="language-r">        validate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">151</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$data_reactive &lt;- renderUI({</pre>
+                      <pre class="language-r">          need(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">152</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lapply(datasets$datanames(), function(x) {</pre>
+                      <pre class="language-r">            FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">79<em>x</em></td>
+                    <td class="num">153</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        datasets$get_data(x, filtered = TRUE)</pre>
+                      <pre class="language-r">            paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">              "Error when executing `teal_data_module` passed to `data`:\n ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate(trigger_data(trigger_data() + 1))</pre>
+                      <pre class="language-r">              paste(data$message, collpase = "\n"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">156</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate(trigger_module(TRUE))</pre>
+                      <pre class="language-r">              "\n Check your inputs or contact app developer if error persists."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      NULL</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # collect arguments to run teal_module</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">162</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    args &lt;- c(list(id = "module"), modules$server_args)</pre>
+                      <pre class="language-r">      validate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">163</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is_arg_used(modules$server, "reporter")) {</pre>
+                      <pre class="language-r">        need(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">164</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      args &lt;- c(args, list(reporter = reporter))</pre>
+                      <pre class="language-r">          inherits(data, "teal_data"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">          paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            "Error: `teal_data_module` passed to `data` failed to return `teal_data` object, returned",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">167</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is_arg_used(modules$server, "datasets")) {</pre>
+                      <pre class="language-r">            toString(sQuote(class(data))),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">168</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      args &lt;- c(args, datasets = datasets)</pre>
+                      <pre class="language-r">            "instead.",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            "\n Check your inputs or contact app developer if error persists."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">57<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is_arg_used(modules$server, "data")) {</pre>
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data &lt;- eventReactive(trigger_data(), .datasets_to_data(modules, datasets))</pre>
+                      <pre class="language-r">      if (!length(teal.data::datanames(data))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">175</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      args &lt;- c(args, data = list(data))</pre>
+                      <pre class="language-r">        warning("`data` object has no datanames. Default datanames are set using `teal_data`'s environment.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">178</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is_arg_used(modules$server, "filter_panel_api")) {</pre>
+                      <pre class="language-r">      is_modules_ok &lt;- check_modules_datanames(modules, teal_data_datanames(data))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filter_panel_api &lt;- teal.slice::FilterPanelAPI$new(datasets)</pre>
+                      <pre class="language-r">      if (!isTRUE(is_modules_ok)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">180</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      args &lt;- c(args, filter_panel_api = filter_panel_api)</pre>
+                      <pre class="language-r">        validate(need(isTRUE(is_modules_ok), sprintf("%s. Contact app developer.", is_modules_ok)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # observe the trigger_module above to induce the module once the renderUI is triggered</pre>
+                      <pre class="language-r">      is_filter_ok &lt;- check_filter_datanames(filter, teal_data_datanames(data))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(</pre>
+                      <pre class="language-r">      if (!isTRUE(is_filter_ok)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">185</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ignoreNULL = TRUE,</pre>
+                      <pre class="language-r">        showNotification(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">186</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      once = TRUE,</pre>
+                      <pre class="language-r">          "Some filters were not applied because of incompatibility with data. Contact app developer.",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">187</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      eventExpr = trigger_module(),</pre>
+                      <pre class="language-r">          type = "warning",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">188</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      handlerExpr = {</pre>
+                      <pre class="language-r">          duration = 10</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">40<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">189</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_output &lt;- if (is_arg_used(modules$server, "id")) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="num">190</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          do.call(modules$server, args)</pre>
+                      <pre class="language-r">        warning(is_filter_ok)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">228</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          do.call(callModule, c(args, list(module = modules$server)))</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">230</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      teal_data_rv()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    reactive(modules)</pre>
+                      <pre class="language-r">    output$error &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">234</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">      teal_data_rv_validate()</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">18<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convert `FilteredData` to reactive list of datasets of the `teal_data` type.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">238</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    res &lt;- srv_teal(id = "teal", modules = modules, teal_data_rv = teal_data_rv_validate, filter = filter)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">239</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Converts `FilteredData` object to `teal_data` object containing datasets needed for a specific module.</pre>
+                      <pre class="language-r">    logger::log_trace("srv_teal_with_splash initialized module with data.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Please note that if a module needs a dataset which has a parent, then the parent will also be returned.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">241</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A hash per `dataset` is calculated internally and returned in the code.</pre>
+                      <pre class="language-r">    res</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param module (`teal_module`) module where needed filters are taken from</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/teal_slices-store.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datasets (`FilteredData`) object where needed data are taken from</pre>
+                      <pre class="language-r">#' Store and restore `teal_slices` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `teal_data` object.</pre>
+                      <pre class="language-r">#' Functions that write a `teal_slices` object to a file in the `JSON` format,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' and also restore the object from disk.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.datasets_to_data &lt;- function(module, datasets) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(module, "teal_module")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(datasets, "FilteredData")</pre>
+                      <pre class="language-r">#' Date and date time objects are stored in the following formats:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  datanames &lt;- if (is.null(module$datanames) || identical(module$datanames, "all")) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    datasets$datanames()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' - `Date` class is converted to the `"ISO8601"` standard (`YYYY-MM-DD`).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_parent_datanames(</pre>
+                      <pre class="language-r">#' - `POSIX*t` classes are converted to character by using</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      module$datanames,</pre>
+                      <pre class="language-r">#' `format.POSIX*t(usetz = TRUE, tz = "UTC")` (`YYYY-MM-DD HH:MM:SS UTC`, where</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets$get_join_keys()</pre>
+                      <pre class="language-r">#' `UTC` is the `Coordinated Universal Time` timezone short-code).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' This format is assumed during `slices_restore`. All `POSIX*t` objects in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' `selected` or `choices` fields of `teal_slice` objects are always printed in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # list of reactive filtered data</pre>
+                      <pre class="language-r">#' `UTC` timezone as well.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- sapply(datanames, function(x) datasets$get_data(x, filtered = TRUE), simplify = FALSE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param tss (`teal_slices`) object to be stored.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  hashes &lt;- calculate_hashes(datanames, datasets)</pre>
+                      <pre class="language-r">#' @param file (`character(1)`) file path where `teal_slices` object will be</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' saved and restored. The file extension should be `".json"`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  code &lt;- c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_rcode_str_install(),</pre>
+                      <pre class="language-r">#' @return `slices_store` returns `NULL`, invisibly.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_rcode_libraries(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_datasets_code(datanames, datasets, hashes)</pre>
+                      <pre class="language-r">#' @seealso [teal_slices()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- do.call(</pre>
+                      <pre class="language-r">slices_store &lt;- function(tss, file) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">28</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.data::teal_data,</pre>
+                      <pre class="language-r">  checkmate::assert_class(tss, "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    args = c(data, code = list(code), join_keys = list(datasets$get_join_keys()[datanames]))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">277</td>
-                    <td class="coverage"></td>
+                    <td class="num">29</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  checkmate::assert_path_for_output(file, overwrite = TRUE, extension = "json")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">30<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  data@verified &lt;- attr(datasets, "verification_status")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">31</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data</pre>
+                      <pre class="language-r">  cat(format(tss, trim_lines = FALSE), "\n", file = file)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get the hash of a dataset</pre>
+                      <pre class="language-r">#' @rdname slices_store</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return `slices_restore` returns a `teal_slices` object restored from the file.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`) names of datasets</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datasets (`FilteredData`) object holding the data</pre>
+                      <pre class="language-r">slices_restore &lt;- function(file) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">287</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_file_exists(file, access = "r", extension = "json")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of hashes per dataset.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">289</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">40</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  tss_json &lt;- jsonlite::fromJSON(file, simplifyDataFrame = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">290</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  tss_json$slices &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">291</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">calculate_hashes &lt;- function(datanames, datasets) {</pre>
+                      <pre class="language-r">    lapply(tss_json$slices, function(slice) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">33<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  sapply(datanames, function(x) rlang::hash(datasets$get_data(x, filtered = FALSE)), simplify = FALSE)</pre>
+                    <td class="num">43</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      for (field in c("selected", "choices")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">44</td>
+                    <td class="coverage">18<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        if (!is.null(slice[[field]])) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          if (length(slice[[field]]) &gt; 0) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            date_partial_regex &lt;- "^[0-9]{4}-[0-9]{2}-[0-9]{2}"</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            time_stamp_regex &lt;- paste0(date_partial_regex, "\\s[0-9]{2}:[0-9]{2}:[0-9]{2}\\sUTC$")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            slice[[field]] &lt;-</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              if (all(grepl(paste0(date_partial_regex, "$"), slice[[field]]))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                as.Date(slice[[field]])</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              } else if (all(grepl(time_stamp_regex, slice[[field]]))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                as.POSIXct(slice[[field]], tz = "UTC")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                slice[[field]]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            slice[[field]] &lt;- character(0)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      slice</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  tss_elements &lt;- lapply(tss_json$slices, as.teal_slice)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  do.call(teal_slices, c(tss_elements, tss_json$attributes))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -15230,42 +15543,42 @@ <h2>teal coverage - 78.09%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/module_tabs_with_filters.R" class="hidden">
+            <div id="R/module_teal.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Add right filter panel into each of the top-level `teal_modules` UIs</pre>
+                      <pre class="language-r"># This module is the main teal module that puts everything together.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The [ui_nested_tabs] function returns a nested tabbed UI corresponding</pre>
+                      <pre class="language-r">#' `teal` main app module</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to the nested modules.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function adds the right filter panel to each main tab.</pre>
+                      <pre class="language-r">#' This is the main `teal` app that puts everything together.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -15279,322 +15592,322 @@ <h2>teal coverage - 78.09%</h2>
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The right filter panel's filter choices affect the `datasets` object. Therefore,</pre>
+                      <pre class="language-r">#' It displays the splash UI which is used to fetch the data, possibly</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' all modules using the same `datasets` share the same filters.</pre>
+                      <pre class="language-r">#' prompting for a password input to fetch the data. Once the data is ready,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' the splash screen is replaced by the actual `teal` UI that is tabsetted and</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This works with nested modules of depth greater than 2, though the filter</pre>
+                      <pre class="language-r">#' has a filter panel with `datanames` that are relevant for the current tab.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' panel is inserted at the right of the modules at depth 1 and not at the leaves.</pre>
+                      <pre class="language-r">#' Nested tabs are possible, but we limit it to two nesting levels for reasons</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' of clarity of the UI.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_tabs_with_filters</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' The splash screen functionality can also be used</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams module_teal</pre>
+                      <pre class="language-r">#' for non-delayed data which takes time to load into memory, avoiding</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' `shiny` session timeouts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datasets (named `list` of `FilteredData`)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   object to store filter state and filtered datasets, shared across modules. For more</pre>
+                      <pre class="language-r">#' Server evaluates the `teal_data_rv` (delayed data mechanism) and creates the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   details see [`teal.slice::FilteredData`]. Structure of the list must be the same as structure</pre>
+                      <pre class="language-r">#' `datasets` object that is shared across modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of the `modules` argument and list names must correspond to the labels in `modules`.</pre>
+                      <pre class="language-r">#' Once it is ready and non-`NULL`, the splash screen is replaced by the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   When filter is not module-specific then list contains the same object in all elements.</pre>
+                      <pre class="language-r">#' main `teal` UI that depends on the data.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param reporter (`Reporter`) object from `teal.reporter`</pre>
+                      <pre class="language-r">#' The currently active tab is tracked and the right filter panel</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' updates the displayed datasets to filter for according to the active `datanames`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' of the tab.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A `shiny.tag.list` containing the main menu, placeholders for filters and placeholders for the `teal` modules.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' It is written as a `shiny` module so it can be added into other apps as well.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @name module_teal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams module_teal_with_splash</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_tabs_with_filters</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_tabs_with_filters &lt;- function(id, modules, datasets, filter = teal_slices()) {</pre>
+                      <pre class="language-r">#' @param splash_ui (`shiny.tag`) UI to display initially,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">33</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
+                      <pre class="language-r">#'   can be a splash screen or a `shiny` module UI. For the latter, see</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">34</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(datasets, types = c("list", "FilteredData"))</pre>
+                      <pre class="language-r">#'   [init()] about how to call the corresponding server function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">35</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param teal_data_rv (`reactive`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">37</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'   returns the `teal_data`, only evaluated once, `NULL` value is ignored</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">38</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_module_specific &lt;- isTRUE(attr(filter, "module_specific"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">40</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal_ui &lt;- ui_nested_tabs(ns("root"), modules = modules, datasets, is_module_specific = is_module_specific)</pre>
+                      <pre class="language-r">#' Returns a `reactive` expression which returns the currently active module.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">41</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  filter_panel_btns &lt;- tags$li(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">42</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "flex-grow",</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">43</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$button(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">44</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "btn action-button filter_hamburger", # see sidebar.css for style filter_hamburger</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">45</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      href = "javascript:void(0)",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">46</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      onclick = "toggleFilterPanel();", # see sidebar.js</pre>
+                      <pre class="language-r">#' @rdname module_teal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">47</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = "Toggle filter panels",</pre>
+                      <pre class="language-r">ui_teal &lt;- function(id,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">48</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      icon("fas fa-bars")</pre>
+                      <pre class="language-r">                    splash_ui = tags$h2("Starting the Teal App"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">                    title = build_app_title(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">50</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter_manager_modal_ui(ns("filter_manager"))</pre>
+                      <pre class="language-r">                    header = tags$p(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                    footer = tags$p()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">52</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal_ui$children[[1]] &lt;- tagAppendChild(teal_ui$children[[1]], filter_panel_btns)</pre>
+                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -15606,107 +15919,107 @@ <h2>teal coverage - 78.09%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">54</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is_module_specific) {</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(splash_ui, c("shiny.tag", "shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # need to rearrange html so that filter panel is within tabset</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tabset_bar &lt;- teal_ui$children[[1]]</pre>
+                      <pre class="language-r">  if (is.character(title)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">57</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal_modules &lt;- teal_ui$children[[2]]</pre>
+                      <pre class="language-r">    title &lt;- build_app_title(title)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">58</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter_ui &lt;- unlist(datasets)[[1]]$ui_filter_panel(ns("filter_panel"))</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">    validate_app_title_tag(title)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">60</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tabset_bar,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">61</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$hr(class = "my-2"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fluidRow(</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        column(width = 9, teal_modules, class = "teal_primary_col"),</pre>
+                      <pre class="language-r">    .var.name = "header",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        column(width = 3, filter_ui, class = "teal_secondary_col")</pre>
+                      <pre class="language-r">    checkmate::check_string(header),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(header, c("shiny.tag", "shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  if (checkmate::test_string(header)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal_ui</pre>
+                      <pre class="language-r">    header &lt;- tags$p(header)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -15720,15414 +16033,15368 @@ <h2>teal coverage - 78.09%</h2>
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_tabs_with_filters</pre>
+                      <pre class="language-r">    .var.name = "footer",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_tabs_with_filters &lt;- function(id,</pre>
+                      <pre class="language-r">    checkmate::check_string(footer),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  datasets,</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(footer, c("shiny.tag", "shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  modules,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  reporter = teal.reporter::Reporter$new(),</pre>
+                      <pre class="language-r">  if (checkmate::test_string(footer)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  filter = teal_slices()) {</pre>
+                      <pre class="language-r">    footer &lt;- tags$p(footer)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">78</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(datasets, types = c("list", "FilteredData"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(reporter, "Reporter")</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">81</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # Once the data is loaded, we will remove this element and add the real teal UI instead</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">  splash_ui &lt;- tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">84</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_trace("srv_tabs_with_filters initializing the module.")</pre>
+                      <pre class="language-r">    # id so we can remove the splash screen once ready, which is the first child of this container</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    id = ns("main_ui_container"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">86</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_module_specific &lt;- isTRUE(attr(filter, "module_specific"))</pre>
+                      <pre class="language-r">    # we put it into a div, so it can easily be removed as a whole, also when it is a tagList (and not</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">87</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    manager_out &lt;- filter_manager_modal_srv("filter_manager", filtered_data_list = datasets, filter = filter)</pre>
+                      <pre class="language-r">    # just the first item of the tagList)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    tags$div(splash_ui)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">89</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_module &lt;- srv_nested_tabs(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">90</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = "root",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">91</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets = datasets,</pre>
+                      <pre class="language-r">  # show busy icon when `shiny` session is busy computing stuff</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">92</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      modules = modules,</pre>
+                      <pre class="language-r">  # based on https://stackoverflow.com/questions/17325521/r-shiny-display-loading-message-while-function-is-running/22475216#22475216 # nolint: line_length.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      reporter = reporter,</pre>
+                      <pre class="language-r">  shiny_busy_message_panel &lt;- conditionalPanel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">94</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_module_specific = is_module_specific</pre>
+                      <pre class="language-r">    condition = "(($('html').hasClass('shiny-busy')) &amp;&amp; (document.getElementById('shiny-notification-panel') == null))", # nolint: line_length.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      icon("arrows-rotate", "spin fa-spin"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">97</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is_module_specific) {</pre>
+                      <pre class="language-r">      "Computing ...",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">98</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      active_datanames &lt;- reactive({</pre>
+                      <pre class="language-r">      # CSS defined in `custom.css`</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">99</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (identical(active_module()$datanames, "all")) {</pre>
+                      <pre class="language-r">      class = "shinybusymessage"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          singleton$datanames()</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">102</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          include_parent_datanames(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            active_module()$datanames,</pre>
+                      <pre class="language-r">  fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            singleton$get_join_keys()</pre>
+                      <pre class="language-r">    title = title,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    theme = get_teal_bs_theme(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    include_teal_css_js(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    tags$header(header),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      singleton &lt;- unlist(datasets)[[1]]</pre>
+                      <pre class="language-r">    tags$hr(class = "my-2"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      singleton$srv_filter_panel("filter_panel", active_datanames = active_datanames)</pre>
+                      <pre class="language-r">    shiny_busy_message_panel,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    splash_ui,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">111</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      observeEvent(</pre>
+                      <pre class="language-r">    tags$hr(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        eventExpr = active_datanames(),</pre>
+                      <pre class="language-r">    tags$footer(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        handlerExpr = {</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">114</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          script &lt;- if (length(active_datanames()) == 0 || is.null(active_datanames())) {</pre>
+                      <pre class="language-r">        footer,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">115</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # hide the filter panel and disable the burger button</pre>
+                      <pre class="language-r">        teal.widgets::verbatim_popup_ui(ns("sessionInfo"), "Session Info", type = "link"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "handleNoActiveDatasets();"</pre>
+                      <pre class="language-r">        textOutput(ns("identifier"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # show the filter panel and enable the burger button</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">119</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "handleActiveDatasetsPresent();"</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">121</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::runjs(script)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ignoreNULL = FALSE</pre>
+                      <pre class="language-r">#' @rdname module_teal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">srv_teal &lt;- function(id, modules, teal_data_rv, filter = teal_slices()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">37<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  stopifnot(is.reactive(teal_data_rv))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    showNotification("Data loaded - App fully started up")</pre>
+                      <pre class="language-r">    logger::log_trace("srv_teal initializing the module.")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">128</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_trace("srv_tabs_with_filters initialized the module")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">129</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    output$identifier &lt;- renderText(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_module</pre>
+                      <pre class="language-r">      paste0("Pid:", Sys.getpid(), " Token:", substr(session$token, 25, 32))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_teal_with_splash.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This file adds a splash screen for delayed data loading on top of teal</pre>
+                      <pre class="language-r">    teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "sessionInfo",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Add splash screen to `teal` application</pre>
+                      <pre class="language-r">      verbatim_content = utils::capture.output(utils::sessionInfo()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      title = "SessionInfo"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Displays custom splash screen during initial delayed data loading.</pre>
+                      <pre class="language-r">    # `JavaScript` code</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    run_js_files(files = "init.js")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This module pauses app initialization pending delayed data loading.</pre>
+                      <pre class="language-r">    # set timezone in shiny app</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is necessary because the filter panel and modules depend on the data to initialize.</pre>
+                      <pre class="language-r">    # timezone is set in the early beginning so it will be available also</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # for `DDL` and all shiny modules</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_with_splash` follows the `shiny` module convention.</pre>
+                      <pre class="language-r">    get_client_timezone(session$ns)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [`init()`] is a wrapper around this that assumes that `teal` it is</pre>
+                      <pre class="language-r">    observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the top-level module and cannot be embedded.</pre>
+                      <pre class="language-r">      eventExpr = input$timezone,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      once = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Note: It is no longer recommended to embed `teal` in `shiny` apps as a module.</pre>
+                      <pre class="language-r">      handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' but rather use `init` to create a standalone application.</pre>
+                      <pre class="language-r">        session$userData$timezone &lt;- input$timezone</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        logger::log_trace("srv_teal@1 Timezone set to client's timezone: { input$timezone }.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [init()]</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id (`character(1)`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   module id</pre>
+                      <pre class="language-r">    reporter &lt;- teal.reporter::Reporter$new()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams init</pre>
+                      <pre class="language-r">    if (is_arg_used(modules, "reporter") &amp;&amp; length(extract_module(modules, "teal_module_previewer")) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param modules (`teal_modules`) object containing the output modules which</pre>
+                      <pre class="language-r">      modules &lt;- append_module(modules, reporter_previewer_module())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   will be displayed in the `teal` application. See [modules()] and [module()] for</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   more details.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams shiny::moduleServer</pre>
+                      <pre class="language-r">    env &lt;- environment()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    datasets_reactive &lt;- eventReactive(teal_data_rv(), {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Returns a `reactive` expression containing a `teal_data` object when data is loaded or `NULL` when it is not.</pre>
+                      <pre class="language-r">      env$progress &lt;- shiny::Progress$new(session)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_teal_with_splash</pre>
+                      <pre class="language-r">      env$progress$set(0.25, message = "Setting data")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' teal_modules &lt;- modules(example_module())</pre>
+                      <pre class="language-r">      # Create list of `FilteredData` objects that reflects structure of `modules`.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Shiny app with modular integration of teal</pre>
+                      <pre class="language-r">      modules_datasets(teal_data_rv(), modules, filter, teal_data_to_filtered_data(teal_data_rv()))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ui_teal_with_splash(id = "app1", data = teal_data())</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    # Replace splash / welcome screen once data is loaded ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # ignoreNULL to not trigger at the beginning when data is NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
+                      <pre class="language-r">    # just handle it once because data obtained through delayed loading should</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   srv_teal_with_splash(</pre>
+                      <pre class="language-r">    # usually not change afterwards</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     id = "app1",</pre>
+                      <pre class="language-r">    # if restored from bookmarked state, `filter` is ignored</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     data = teal_data(iris = iris),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     modules = teal_modules</pre>
+                      <pre class="language-r">    observeEvent(datasets_reactive(), once = TRUE, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">      logger::log_trace("srv_teal@5 setting main ui after data was pulled")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">      on.exit(env$progress$close())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      env$progress$set(0.5, message = "Setting up main UI")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">      datasets &lt;- datasets_reactive()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">      # main_ui_container contains splash screen first and we remove it and replace it by the real UI</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      removeUI(sprintf("#%s &gt; div:nth-child(1)", session$ns("main_ui_container")))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      insertUI(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        selector = paste0("#", session$ns("main_ui_container")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_with_splash</pre>
+                      <pre class="language-r">        where = "beforeEnd",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ui_teal_with_splash &lt;- function(id,</pre>
+                      <pre class="language-r">        # we put it into a div, so it can easily be removed as a whole, also when it is a tagList (and not</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                data,</pre>
+                      <pre class="language-r">        # just the first item of the tagList)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                title = build_app_title(),</pre>
+                      <pre class="language-r">        ui = tags$div(ui_tabs_with_filters(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                header = tags$p(),</pre>
+                      <pre class="language-r">          session$ns("main_ui"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                footer = tags$p()) {</pre>
+                      <pre class="language-r">          modules = modules,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">191</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">          datasets = datasets,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module"))</pre>
+                      <pre class="language-r">          filter = filter</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">193</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">        )),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "title",</pre>
+                      <pre class="language-r">        # needed so that the UI inputs are available and can be immediately updated, otherwise, updating may not</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(title),</pre>
+                      <pre class="language-r">        # have any effect as they are ignored when not present</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(title, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">        immediate = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "header",</pre>
+                      <pre class="language-r">      # must make sure that this is only executed once as modules assume their observers are only</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">200</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(header),</pre>
+                      <pre class="language-r">      # registered once (calling server functions twice would trigger observers twice each time)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(header, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">      srv_tabs_with_filters(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        id = "main_ui",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">203</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert(</pre>
+                      <pre class="language-r">        datasets = datasets,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">204</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var.name = "footer",</pre>
+                      <pre class="language-r">        modules = modules,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_string(footer),</pre>
+                      <pre class="language-r">        reporter = reporter,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::check_multi_class(footer, c("shiny.tag", "shiny.tag.list", "html"))</pre>
+                      <pre class="language-r">        filter = filter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/dummy_functions.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Startup splash screen for delayed loading</pre>
+                      <pre class="language-r">#' An example `teal` module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # We use delayed loading in all cases, even when the data does not need to be fetched.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # This has the benefit that when filtering the data takes a lot of time initially, the</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Shiny app does not time out.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  splash_ui &lt;- if (inherits(data, "teal_data_module")) {</pre>
+                      <pre class="language-r">#' @inheritParams teal_modules</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data$ui(ns("teal_data_module"))</pre>
+                      <pre class="language-r">#' @return A `teal` module which can be included in the `modules` argument to [init()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(data, "teal_data")) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$div()</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   data = teal_data(IRIS = iris, MTCARS = mtcars),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ui_teal(</pre>
+                      <pre class="language-r">#'   modules = example_module()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">25<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    id = ns("teal"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">25<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    splash_ui = tags$div(splash_ui, uiOutput(ns("error"))),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    title = title,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    header = header,</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    footer = footer</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">example_module &lt;- function(label = "example teal module", datanames = "all") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">17</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">18</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_teal_with_splash</pre>
+                      <pre class="language-r">  module(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">19</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">srv_teal_with_splash &lt;- function(id, data, modules, filter = teal_slices()) {</pre>
+                      <pre class="language-r">    label,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">33<em>x</em></td>
+                    <td class="num">20</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">    server = function(id, data) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">33<em>x</em></td>
+                    <td class="num">21</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module"))</pre>
+                      <pre class="language-r">      checkmate::assert_class(data(), "teal_data")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">33<em>x</em></td>
+                    <td class="num">22</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(modules, "teal_modules")</pre>
+                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">33<em>x</em></td>
+                    <td class="num">23</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
+                      <pre class="language-r">        updateSelectInput(session, "dataname", choices = isolate(teal.data::datanames(data())))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">24</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        output$text &lt;- renderPrint({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">33<em>x</em></td>
+                    <td class="num">25</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">          req(input$dataname)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">33<em>x</em></td>
+                    <td class="num">26</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_trace("srv_teal_with_splash initializing module with data.")</pre>
+                      <pre class="language-r">          data()[[input$dataname]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">33<em>x</em></td>
+                    <td class="num">28</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (getOption("teal.show_js_log", default = FALSE)) {</pre>
+                      <pre class="language-r">        teal.widgets::verbatim_popup_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">110</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">29</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shinyjs::showLog()</pre>
+                      <pre class="language-r">          id = "rcode",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">30</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">          verbatim_content = reactive(teal.code::get_code(data())),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">31</td>
+                    <td class="coverage">18<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          title = "Example Code"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # teal_data_rv contains teal_data object</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # either passed to teal::init or returned from teal_data_module</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">33<em>x</em></td>
+                    <td class="num">35</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal_data_rv &lt;- if (inherits(data, "teal_data_module")) {</pre>
+                      <pre class="language-r">    ui = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">36</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data &lt;- data$server(id = "teal_data_module")</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">37</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.reactive(data)) {</pre>
+                      <pre class="language-r">      teal.widgets::standard_layout(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">38</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stop("The `teal_data_module` passed to `data` must return a reactive expression.", call. = FALSE)</pre>
+                      <pre class="language-r">        output = verbatimTextOutput(ns("text")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        encoding = tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">40</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data</pre>
+                      <pre class="language-r">          selectInput(ns("dataname"), "Choose a dataset", choices = NULL),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">33<em>x</em></td>
+                    <td class="num">41</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (inherits(data, "teal_data")) {</pre>
+                      <pre class="language-r">          teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      reactiveVal(data)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">45</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal_data_rv_validate &lt;- reactive({</pre>
+                      <pre class="language-r">    datanames = datanames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # custom module can return error</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data &lt;- tryCatch(teal_data_rv(), error = function(e) e)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/module_filter_manager.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Manage multiple `FilteredData` objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # there is an empty reactive cycle on init!</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">29<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (inherits(data, "shiny.silent.error") &amp;&amp; identical(data$message, "")) {</pre>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' Oversee filter states across the entire application.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">131</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return(NULL)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' This module observes changes in the filters of each `FilteredData` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' and keeps track of all filters used. A mapping of filters to modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # to handle qenv.error</pre>
+                      <pre class="language-r">#' is kept in the `mapping_matrix` object (which is actually a `data.frame`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (inherits(data, "qenv.error")) {</pre>
+                      <pre class="language-r">#' that tracks which filters (rows) are active in which modules (columns).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          need(</pre>
+                      <pre class="language-r">#' @name module_filter_manager</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            FALSE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            paste(</pre>
+                      <pre class="language-r">#' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Error when executing `teal_data_module` passed to `data`:\n ",</pre>
+                      <pre class="language-r">#'  `shiny` module id.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              paste(data$message, collapse = "\n"),</pre>
+                      <pre class="language-r">#' @param filtered_data_list (named `list`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "\n Check your inputs or contact app developer if error persists."</pre>
+                      <pre class="language-r">#'  A list, possibly nested, of `FilteredData` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#'  Each `FilteredData` will be served to one module in the `teal` application.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'  The structure of the list must reflect the nesting of modules in tabs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'  and the names of the list must match the labels of their respective modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @inheritParams init</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return A list of `reactive`s, each holding a `teal_slices`, as returned by `filter_manager_module_srv`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # to handle module non-qenv errors</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (inherits(data, "error")) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          need(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            FALSE,</pre>
+                      <pre class="language-r">#' Filter manager modal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            paste(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Error when executing `teal_data_module` passed to `data`:\n ",</pre>
+                      <pre class="language-r">#' Opens a modal containing the filter manager UI.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              paste(data$message, collpase = "\n"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "\n Check your inputs or contact app developer if error persists."</pre>
+                      <pre class="language-r">#' @name module_filter_manager_modal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#' @inheritParams module_filter_manager</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(</pre>
+                      <pre class="language-r">#' @rdname module_filter_manager_modal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        need(</pre>
+                      <pre class="language-r">filter_manager_modal_ui &lt;- function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">37</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inherits(data, "teal_data"),</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">38</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          paste(</pre>
+                      <pre class="language-r">  tags$button(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">39</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Error: `teal_data_module` passed to `data` failed to return `teal_data` object, returned",</pre>
+                      <pre class="language-r">    id = ns("show"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">40</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            toString(sQuote(class(data))),</pre>
+                      <pre class="language-r">    class = "btn action-button filter_manager_button",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">41</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "instead.",</pre>
+                      <pre class="language-r">    title = "Show filters manager modal",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">42</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "\n Check your inputs or contact app developer if error persists."</pre>
+                      <pre class="language-r">    icon("gear")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname module_filter_manager_modal</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">filter_manager_modal_srv &lt;- function(id, filtered_data_list, filter) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="num">48</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!length(teal.data::datanames(data))) {</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">49</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        warning("`data` object has no datanames. Default datanames are set using `teal_data`'s environment.")</pre>
+                      <pre class="language-r">    observeEvent(input$show, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">50</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      logger::log_trace("filter_manager_modal_srv@1 show button has been clicked.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">51</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      showModal(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">52</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_modules_ok &lt;- check_modules_datanames(modules, teal_data_datanames(data))</pre>
+                      <pre class="language-r">        modalDialog(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">53</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!isTRUE(is_modules_ok)) {</pre>
+                      <pre class="language-r">          filter_manager_ui(session$ns("filter_manager")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">54</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        validate(need(isTRUE(is_modules_ok), sprintf("%s. Contact app developer.", is_modules_ok)))</pre>
+                      <pre class="language-r">          size = "l",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">181</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">55</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          footer = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">56</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          easyClose = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_filter_ok &lt;- check_filter_datanames(filter, teal_data_datanames(data))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!isTRUE(is_filter_ok)) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        showNotification(</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Some filters were not applied because of incompatibility with data. Contact app developer.",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          type = "warning",</pre>
+                      <pre class="language-r">    filter_manager_srv("filter_manager", filtered_data_list, filter)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          duration = 10</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        warning(is_filter_ok)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @rdname module_filter_manager</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">filter_manager_ui &lt;- function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">67</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal_data_rv()</pre>
+                      <pre class="language-r">  ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">68</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">  tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">69</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    class = "filter_manager_content",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">70</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$error &lt;- renderUI({</pre>
+                      <pre class="language-r">    tableOutput(ns("slices_table")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">71</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal_data_rv_validate()</pre>
+                      <pre class="language-r">    snapshot_manager_ui(ns("snapshot_manager"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      NULL</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname module_filter_manager</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">filter_manager_srv &lt;- function(id, filtered_data_list, filter) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res &lt;- srv_teal(id = "teal", modules = modules, teal_data_rv = teal_data_rv_validate, filter = filter)</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_trace("srv_teal_with_splash initialized module with data.")</pre>
+                      <pre class="language-r">    logger::log_trace("filter_manager_srv initializing for: { paste(names(filtered_data_list), collapse = ', ')}.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res</pre>
+                      <pre class="language-r">    is_module_specific &lt;- isTRUE(attr(filter, "module_specific"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    # Create a global list of slices.</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/dummy_functions.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' An example `teal` module</pre>
+                      <pre class="language-r">    # Contains all available teal_slice objects available to all modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Passed whole to instances of FilteredData used for individual modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">    # Down there a subset that pertains to the data sets used in that module is applied and displayed.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    slices_global &lt;- reactiveVal(filter)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal_modules</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `teal` module which can be included in the `modules` argument to [init()].</pre>
+                      <pre class="language-r">    filtered_data_list &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      if (!is_module_specific) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">        # Retrieve the first FilteredData from potentially nested list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = teal_data(IRIS = iris, MTCARS = mtcars),</pre>
+                      <pre class="language-r">        # List of length one is named "global_filters" because that name is forbidden for a module label.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = example_module()</pre>
+                      <pre class="language-r">        list(global_filters = unlist(filtered_data_list)[[1]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">        # Flatten potentially nested list of FilteredData objects while maintaining useful names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">        # Simply using `unlist` would result in concatenated names.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">        flatten_nested &lt;- function(x, name = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">          if (inherits(x, "FilteredData")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            setNames(list(x), name)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">example_module &lt;- function(label = "example teal module", datanames = "all") {</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">17</td>
-                    <td class="coverage">77<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">            unlist(lapply(names(x), function(name) flatten_nested(x[[name]], name)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">18</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module(</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">19</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">20</td>
-                    <td class="coverage">77<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = function(id, data) {</pre>
+                      <pre class="language-r">        flatten_nested(filtered_data_list)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">21</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(data(), "teal_data")</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">22</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">23</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        updateSelectInput(session, "dataname", choices = isolate(teal.data::datanames(data())))</pre>
+                      <pre class="language-r">    # Create mapping of filters to modules in matrix form (presented as data.frame).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">107</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        output$text &lt;- renderPrint({</pre>
+                      <pre class="language-r">    # Modules get NAs for filters that cannot be set for them.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">25</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          req(input$dataname)</pre>
+                      <pre class="language-r">    mapping_matrix &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">26</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data()[[input$dataname]]</pre>
+                      <pre class="language-r">      state_ids_global &lt;- vapply(slices_global(), `[[`, character(1L), "id")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">      mapping_smooth &lt;- lapply(filtered_data_list, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::verbatim_popup_srv(</pre>
+                      <pre class="language-r">        state_ids_local &lt;- vapply(x$get_filter_state(), `[[`, character(1L), "id")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = "rcode",</pre>
+                      <pre class="language-r">        state_ids_allowed &lt;- vapply(x$get_available_teal_slices()(), `[[`, character(1L), "id")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">113</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          verbatim_content = reactive(teal.code::get_code(data())),</pre>
+                      <pre class="language-r">        states_active &lt;- state_ids_global %in% state_ids_local</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">114</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = "Example Code"</pre>
+                      <pre class="language-r">        ifelse(state_ids_global %in% state_ids_allowed, states_active, NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">23<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      as.data.frame(mapping_smooth, row.names = state_ids_global, check.names = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = function(id) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">    output$slices_table &lt;- renderTable(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      teal.widgets::standard_layout(</pre>
+                      <pre class="language-r">      expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        output = verbatimTextOutput(ns("text")),</pre>
+                      <pre class="language-r">        # Display logical values as UTF characters.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        encoding = tags$div(</pre>
+                      <pre class="language-r">        mm &lt;- mapping_matrix()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selectInput(ns("dataname"), "Choose a dataset", choices = NULL),</pre>
+                      <pre class="language-r">        mm[] &lt;- lapply(mm, ifelse, yes = intToUtf8(9989), no = intToUtf8(10060))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::verbatim_popup_ui(ns("rcode"), "Show R code")</pre>
+                      <pre class="language-r">        mm[] &lt;- lapply(mm, function(x) ifelse(is.na(x), intToUtf8(128306), x))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        if (!is_module_specific) colnames(mm) &lt;- "Global Filters"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        # Display placeholder if no filters defined.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">77<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = datanames</pre>
+                      <pre class="language-r">        if (nrow(mm) == 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">          mm &lt;- data.frame(`Filter manager` = "No filters specified.", check.names = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          rownames(mm) &lt;- ""</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/tdata.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a `tdata` object</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">        # Report Previewer will not be displayed.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        mm[names(mm) != "Report previewer"]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a new object called `tdata` which contains `data`, a `reactive` list of `data.frames`</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (or `MultiAssayExperiment`), with attributes:</pre>
+                      <pre class="language-r">      align = paste(c("l", rep("c", sum(names(filtered_data_list) != "Report previewer"))), collapse = ""),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `code` (`reactive`) containing code used to generate the data</pre>
+                      <pre class="language-r">      rownames = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - join_keys (`join_keys`) containing the relationships between the data</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - metadata (named `list`) containing any metadata associated with the data frames</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Create list of module calls.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name tdata</pre>
+                      <pre class="language-r">    modules_out &lt;- lapply(names(filtered_data_list), function(module_name) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (named `list`) A list of `data.frame` or `MultiAssayExperiment` objects,</pre>
+                      <pre class="language-r">      filter_manager_module_srv(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  which optionally can be `reactive`.</pre>
+                      <pre class="language-r">        id = module_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Inside this object all of these items will be made `reactive`.</pre>
+                      <pre class="language-r">        module_fd = filtered_data_list[[module_name]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param code (`character` or `reactive` which evaluates to a `character`) containing</pre>
+                      <pre class="language-r">        slices_global = slices_global</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the code used to generate the data. This should be `reactive` if the code is changing</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   during a reactive context (e.g. if filtering changes the code). Inside this</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   object `code` will be made reactive</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param join_keys (`teal.data::join_keys`) object containing relationships between the</pre>
+                      <pre class="language-r">    # Call snapshot manager.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   datasets.</pre>
+                      <pre class="language-r">    snapshot_manager_srv("snapshot_manager", slices_global, mapping_matrix, filtered_data_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param metadata (named `list`) each element contains a list of metadata about the named `data.frame`</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">23<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    modules_out # returned for testing purpose</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Each element of these list should be atomic and length one.</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `tdata` object.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso `as_tdata`</pre>
+                      <pre class="language-r">#' Module specific filter manager</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' Tracks filter states in a single module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- new_tdata(</pre>
+                      <pre class="language-r">#' This module tracks the state of a single `FilteredData` object and global `teal_slices`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = list(iris = iris, mtcars = reactive(mtcars), dd = data.frame(x = 1:10)),</pre>
+                      <pre class="language-r">#' and updates both objects as necessary. Filter states added in different modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   code = "iris &lt;- iris</pre>
+                      <pre class="language-r">#' Filter states added any individual module are added to global `teal_slices`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     mtcars &lt;- mtcars</pre>
+                      <pre class="language-r">#' and from there become available in other modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dd &lt;- data.frame(x = 1:10)",</pre>
+                      <pre class="language-r">#' by setting `private$available_teal_slices` in each `FilteredData`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   metadata = list(dd = list(author = "NEST"), iris = list(version = 1))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'  `shiny` module id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Extract a data.frame</pre>
+                      <pre class="language-r">#' @param module_fd (`FilteredData`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(data[["iris"]]())</pre>
+                      <pre class="language-r">#'   Object containing the data to be filtered in a single `teal` module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param slices_global (`reactiveVal`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Get code</pre>
+                      <pre class="language-r">#'   stores `teal_slices` with all available filters; allows the following actions:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(get_code_tdata(data))</pre>
+                      <pre class="language-r">#'   - to disable/enable a specific filter in a module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   - to restore saved filter settings</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Get metadata</pre>
+                      <pre class="language-r">#'   - to save current filter panel settings</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_metadata(data, "iris")</pre>
+                      <pre class="language-r">#' @return A `reactive` expression containing the slices active in this module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">new_tdata &lt;- function(data, code = "", join_keys = NULL, metadata = NULL) {</pre>
+                      <pre class="language-r">filter_manager_module_srv &lt;- function(id, module_fd, slices_global) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">180</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_soft(</pre>
+                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    when = "0.15.0",</pre>
+                      <pre class="language-r">    # Only operate on slices that refer to data sets present in this module.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    what = "tdata()",</pre>
+                      <pre class="language-r">    module_fd$set_available_teal_slices(reactive(slices_global()))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = paste(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "tdata is deprecated and will be removed in the next release. Use `teal_data` instead.\n",</pre>
+                      <pre class="language-r">    # Track filter state of this module.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">185</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please follow migration instructions https://github.com/insightsengineering/teal/discussions/987."</pre>
+                      <pre class="language-r">    slices_module &lt;- reactive(module_fd$get_filter_state())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    # Reactive values for comparing states.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">188</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(</pre>
+                      <pre class="language-r">    previous_slices &lt;- reactiveVal(isolate(slices_module()))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data,</pre>
+                      <pre class="language-r">    slices_added &lt;- reactiveVal(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    any.missing = FALSE, names = "unique",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    types = c("data.frame", "reactive", "MultiAssayExperiment")</pre>
+                      <pre class="language-r">    # Observe changes in module filter state and trigger appropriate actions.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    observeEvent(slices_module(), ignoreNULL = FALSE, {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">193</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(join_keys, "join_keys", null.ok = TRUE)</pre>
+                      <pre class="language-r">      logger::log_trace("filter_manager_srv@1 detecting states deltas in module: { id }.")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="num">194</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(code, c("character", "reactive"))</pre>
+                      <pre class="language-r">      added &lt;- setdiff_teal_slices(slices_module(), slices_global())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">195</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      if (length(added)) slices_added(added)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(metadata, names = "unique", null.ok = TRUE)</pre>
+                      <pre class="language-r">      previous_slices(slices_module())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">197</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(names(metadata), names(data))</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.reactive(code)) {</pre>
+                      <pre class="language-r">    observeEvent(slices_added(), ignoreNULL = TRUE, {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">200</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    isolate(checkmate::assert_class(code(), "character", .var.name = "code"))</pre>
+                      <pre class="language-r">      logger::log_trace("filter_manager_srv@2 added filter in module: { id }.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      # In case the new state has the same id as an existing state, add a suffix to it.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">202</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      global_ids &lt;- vapply(slices_global(), `[[`, character(1L), "id")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">203</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # create reactive data.frames</pre>
+                      <pre class="language-r">      lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">204</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (x in names(data)) {</pre>
+                      <pre class="language-r">        slices_added(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">47<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">205</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.reactive(data[[x]])) {</pre>
+                      <pre class="language-r">        function(slice) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">31<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">206</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data[[x]] &lt;- do.call(reactive, list(as.name(x)), envir = list2env(data[x]))</pre>
+                      <pre class="language-r">          if (slice$id %in% global_ids) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">207</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">            slice$id &lt;- utils::tail(make.unique(c(global_ids, slice$id), sep = "_"), 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # set attributes</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">211</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(data, "code") &lt;- if (is.reactive(code)) code else reactive(code)</pre>
+                      <pre class="language-r">      slices_global_new &lt;- c(slices_global(), slices_added())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">212</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(data, "join_keys") &lt;- join_keys</pre>
+                      <pre class="language-r">      slices_global(slices_global_new)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">213</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(data, "metadata") &lt;- metadata</pre>
+                      <pre class="language-r">      slices_added(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # set class</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  class(data) &lt;- c("tdata", class(data))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  data</pre>
+                      <pre class="language-r">    slices_module # returned for testing purpose</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/validations.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function to convert a `tdata` object to an `environment`</pre>
+                      <pre class="language-r">#' Validate that dataset has a minimum number of observations</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Any `reactive` expressions inside `tdata` are evaluated first.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`tdata`) object</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An `environment`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- new_tdata(</pre>
+                      <pre class="language-r">#' @param x (`data.frame`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = list(iris = iris, mtcars = reactive(mtcars)),</pre>
+                      <pre class="language-r">#' @param min_nrow (`numeric(1)`) Minimum allowed number of rows in `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   code = "iris &lt;- iris</pre>
+                      <pre class="language-r">#' @param complete (`logical(1)`) Flag specifying whether to check only complete cases. Defaults to `FALSE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     mtcars = mtcars"</pre>
+                      <pre class="language-r">#' @param allow_inf (`logical(1)`) Flag specifying whether to allow infinite values. Defaults to `TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @param msg (`character(1)`) Additional message to display alongside the default message.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' my_env &lt;- isolate(tdata2env(data))</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tdata2env &lt;- function(data) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "tdata")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  list2env(lapply(data, function(x) if (is.reactive(x)) x() else x))</pre>
+                      <pre class="language-r">#' library(teal)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   sliderInput("len", "Max Length of Sepal",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     min = 4.3, max = 7.9, value = 5</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Wrapper for `get_code.tdata`</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   plotOutput("plot")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This wrapper is to be used by downstream packages to extract the code of a `tdata` object.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`tdata`) object</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   output$plot &lt;- renderPlot({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return (`character`) code used in the `tdata` object.</pre>
+                      <pre class="language-r">#'     iris_df &lt;- iris[iris$Sepal.Length &lt;= input$len, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'     validate_has_data(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_code_tdata &lt;- function(data) {</pre>
+                      <pre class="language-r">#'       iris_df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(data, "tdata")</pre>
+                      <pre class="language-r">#'       min_nrow = 10,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(data, "code")()</pre>
+                      <pre class="language-r">#'       complete = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       msg = "Please adjust Max Length of Sepal"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Extract `join_keys` from `tdata`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`tdata`) object</pre>
+                      <pre class="language-r">#'     hist(iris_df$Sepal.Length, breaks = 5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... Additional arguments (not used)</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">join_keys.tdata &lt;- function(data, ...) {</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(data, "join_keys")</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function to get metadata from a `tdata` object</pre>
+                      <pre class="language-r">validate_has_data &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`tdata` - object) to extract the data from</pre>
+                      <pre class="language-r">                              min_nrow = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataname (`character(1)`) the dataset name whose metadata is requested</pre>
+                      <pre class="language-r">                              complete = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Either list of metadata or NULL if no metadata.</pre>
+                      <pre class="language-r">                              allow_inf = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                              msg = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_metadata &lt;- function(data, dataname) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(msg, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">47</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(dataname)</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">48</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("get_metadata", data)</pre>
+                      <pre class="language-r">  if (!is.null(min_nrow)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    if (complete) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      complete_index &lt;- stats::complete.cases(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname get_metadata</pre>
+                      <pre class="language-r">      validate(need(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        sum(complete_index) &gt; 0 &amp;&amp; nrow(x[complete_index, , drop = FALSE]) &gt;= min_nrow,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        paste(c(paste("Number of complete cases is less than:", min_nrow), msg), collapse = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_metadata.tdata &lt;- function(data, dataname) {</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  metadata &lt;- attr(data, "metadata")</pre>
+                      <pre class="language-r">      validate(need(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(metadata)) {</pre>
+                      <pre class="language-r">        nrow(x) &gt;= min_nrow,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(NULL)</pre>
+                      <pre class="language-r">        paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          c(paste("Minimum number of records not met: &gt;=", min_nrow, "records required."), msg),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  metadata[[dataname]]</pre>
+                      <pre class="language-r">          collapse = "\n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname get_metadata</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_metadata.default &lt;- function(data, dataname) {</pre>
+                      <pre class="language-r">    if (!allow_inf) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">154</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stop("get_metadata function not implemented for this object")</pre>
+                      <pre class="language-r">      validate(need(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        all(vapply(x, function(col) !is.numeric(col) || !any(is.infinite(col)), logical(1))),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "Dataframe contains Inf values which is not allowed."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Downgrade `teal_data` objects in modules for compatibility</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convert `teal_data` to `tdata` in `teal` modules.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Validate that dataset has unique rows for key variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Recent changes in `teal` cause modules to fail because modules expect a `tdata` object</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to be passed to the `data` argument but instead they receive a `teal_data` object,</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' which is additionally wrapped in a reactive expression in the server functions.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' In order to easily adapt such modules without a proper refactor,</pre>
+                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' use this function to downgrade the `data` argument.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param x (`data.frame`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x data object, either `tdata` or `teal_data`, the latter possibly in a reactive expression</pre>
+                      <pre class="language-r">#' @param key (`character`) Vector of ID variables from `x` that identify unique records.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Object of class `tdata`.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' td &lt;- teal_data()</pre>
+                      <pre class="language-r">#' iris$id &lt;- rep(1:50, times = 3)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' td &lt;- within(td, iris &lt;- iris) %&gt;% within(mtcars &lt;- mtcars)</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' td</pre>
+                      <pre class="language-r">#'   selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as_tdata(td)</pre>
+                      <pre class="language-r">#'     inputId = "species",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as_tdata(reactive(td))</pre>
+                      <pre class="language-r">#'     label = "Select species",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     choices = c("setosa", "versicolor", "virginica"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'     selected = "setosa",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname tdata_deprecation</pre>
+                      <pre class="language-r">#'     multiple = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">as_tdata &lt;- function(x) {</pre>
+                      <pre class="language-r">#'   plotOutput("plot")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(x, "tdata")) {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(x)</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   output$plot &lt;- renderPlot({</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.reactive(x)) {</pre>
+                      <pre class="language-r">#'     iris_f &lt;- iris[iris$Species %in% input$species, ]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_class(isolate(x()), "teal_data")</pre>
+                      <pre class="language-r">#'     validate_one_row_per_id(iris_f, key = c("id"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames &lt;- isolate(teal_data_datanames(x()))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    datasets &lt;- sapply(datanames, function(dataname) reactive(x()[[dataname]]), simplify = FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    code &lt;- reactive(teal.code::get_code(x()))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    join_keys &lt;- isolate(teal.data::join_keys(x()))</pre>
+                      <pre class="language-r">#'     hist(iris_f$Sepal.Length, breaks = 5)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (inherits(x, "teal_data")) {</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames &lt;- teal_data_datanames(x)</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datasets &lt;- sapply(datanames, function(dataname) reactive(x[[dataname]]), simplify = FALSE)</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    code &lt;- reactive(teal.code::get_code(x))</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">107</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    join_keys &lt;- isolate(teal.data::join_keys(x))</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">validate_one_row_per_id &lt;- function(x, key = c("USUBJID", "STUDYID")) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">110</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  new_tdata(data = datasets, code = code, join_keys = join_keys)</pre>
+                      <pre class="language-r">  validate(need(!any(duplicated(x[key])), paste("Found more than one row per id.")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/validations.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validate that dataset has a minimum number of observations</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' Validates that vector includes all expected values</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`data.frame`)</pre>
+                      <pre class="language-r">#' @param x Vector of values to test.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param min_nrow (`numeric(1)`) Minimum allowed number of rows in `x`.</pre>
+                      <pre class="language-r">#' @param choices Vector to test against.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param complete (`logical(1)`) Flag specifying whether to check only complete cases. Defaults to `FALSE`.</pre>
+                      <pre class="language-r">#' @param msg (`character(1)`) Error message to display if some elements of `x` are not elements of `choices`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param allow_inf (`logical(1)`) Flag specifying whether to allow infinite values. Defaults to `TRUE`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param msg (`character(1)`) Additional message to display alongside the default message.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(teal)</pre>
+                      <pre class="language-r">#'     "species",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">#'     "Select species",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   sliderInput("len", "Max Length of Sepal",</pre>
+                      <pre class="language-r">#'     choices = c("setosa", "versicolor", "virginica", "unknown species"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     min = 4.3, max = 7.9, value = 5</pre>
+                      <pre class="language-r">#'     selected = "setosa",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     multiple = FALSE</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   plotOutput("plot")</pre>
+                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$plot &lt;- renderPlot({</pre>
+                      <pre class="language-r">#'   output$summary &lt;- renderPrint({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     iris_df &lt;- iris[iris$Sepal.Length &lt;= input$len, ]</pre>
+                      <pre class="language-r">#'     validate_in(input$species, iris$Species, "Species does not exist.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_has_data(</pre>
+                      <pre class="language-r">#'     nrow(iris[iris$Species == input$species, ])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       iris_df,</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       min_nrow = 10,</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       complete = FALSE,</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       msg = "Please adjust Max Length of Sepal"</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     hist(iris_df$Sepal.Length, breaks = 5)</pre>
+                      <pre class="language-r">validate_in &lt;- function(x, choices, msg) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">148</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  validate(need(length(x) &gt; 0 &amp;&amp; length(choices) &gt; 0 &amp;&amp; all(x %in% choices), msg))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#' Validates that vector has length greater than 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_has_data &lt;- function(x,</pre>
+                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              min_nrow = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              complete = FALSE,</pre>
+                      <pre class="language-r">#' @param x vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              allow_inf = TRUE,</pre>
+                      <pre class="language-r">#' @param msg message to display</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              msg = NULL) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(msg, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">161</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(x)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(min_nrow)) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (complete) {</pre>
+                      <pre class="language-r">#' data &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">164</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      complete_index &lt;- stats::complete.cases(x)</pre>
+                      <pre class="language-r">#'   id = c(1:10, 11:20, 1:10),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(</pre>
+                      <pre class="language-r">#'   strata = rep(c("A", "B"), each = 15)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">166</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sum(complete_index) &gt; 0 &amp;&amp; nrow(x[complete_index, , drop = FALSE]) &gt;= min_nrow,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">167</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste(c(paste("Number of complete cases is less than:", min_nrow), msg), collapse = "\n")</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">#'   selectInput("ref1", "Select strata1 to compare",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#'     choices = c("A", "B", "C"), selected = "A"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">171</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nrow(x) &gt;= min_nrow,</pre>
+                      <pre class="language-r">#'   selectInput("ref2", "Select strata2 to compare",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste(</pre>
+                      <pre class="language-r">#'     choices = c("A", "B", "C"), selected = "B"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c(paste("Minimum number of records not met: &gt;=", min_nrow, "records required."), msg),</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          collapse = "\n"</pre>
+                      <pre class="language-r">#'   verbatimTextOutput("arm_summary")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   output$arm_summary &lt;- renderText({</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">179</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!allow_inf) {</pre>
+                      <pre class="language-r">#'     sample_1 &lt;- data$id[data$strata == input$ref1]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(</pre>
+                      <pre class="language-r">#'     sample_2 &lt;- data$id[data$strata == input$ref2]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        all(vapply(x, function(col) !is.numeric(col) || !any(is.infinite(col)), logical(1))),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">182</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Dataframe contains Inf values which is not allowed."</pre>
+                      <pre class="language-r">#'     validate_has_elements(sample_1, "No subjects in strata1.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">#'     validate_has_elements(sample_2, "No subjects in strata2.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'     paste0(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       "Number of samples in: strata1=", length(sample_1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       " comparions strata2=", length(sample_2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validate that dataset has unique rows for key variables</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`data.frame`)</pre>
+                      <pre class="language-r">validate_has_elements &lt;- function(x, msg) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">195</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  validate(need(length(x) &gt; 0, msg))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param key (`character`) Vector of ID variables from `x` that identify unique records.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' Validates no intersection between two vectors</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' iris$id &lt;- rep(1:50, times = 3)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     inputId = "species",</pre>
+                      <pre class="language-r">#' @param x vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label = "Select species",</pre>
+                      <pre class="language-r">#' @param y vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("setosa", "versicolor", "virginica"),</pre>
+                      <pre class="language-r">#' @param msg (`character(1)`) message to display if `x` and `y` intersect</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "setosa",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     multiple = TRUE</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   plotOutput("plot")</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' data &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r">#'   id = c(1:10, 11:20, 1:10),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$plot &lt;- renderPlot({</pre>
+                      <pre class="language-r">#'   strata = rep(c("A", "B", "C"), each = 10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     iris_f &lt;- iris[iris$Species %in% input$species, ]</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_one_row_per_id(iris_f, key = c("id"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     hist(iris_f$Sepal.Length, breaks = 5)</pre>
+                      <pre class="language-r">#'   selectInput("ref1", "Select strata1 to compare",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">#'     choices = c("A", "B", "C"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'     selected = "A"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">#'   selectInput("ref2", "Select strata2 to compare",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'     choices = c("A", "B", "C"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     selected = "B"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_one_row_per_id &lt;- function(x, key = c("USUBJID", "STUDYID")) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">110</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  validate(need(!any(duplicated(x[key])), paste("Found more than one row per id.")))</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validates that vector includes all expected values</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   output$summary &lt;- renderText({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     sample_1 &lt;- data$id[data$strata == input$ref1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
+                      <pre class="language-r">#'     sample_2 &lt;- data$id[data$strata == input$ref2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x Vector of values to test.</pre>
+                      <pre class="language-r">#'     validate_no_intersection(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param choices Vector to test against.</pre>
+                      <pre class="language-r">#'       sample_1, sample_2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param msg (`character(1)`) Error message to display if some elements of `x` are not elements of `choices`.</pre>
+                      <pre class="language-r">#'       "subjects within strata1 and strata2 cannot overlap"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'     paste0(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       "Number of subject in: reference treatment=", length(sample_1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'       " comparions treatment=", length(sample_2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput(</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "species",</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Select species",</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("setosa", "versicolor", "virginica", "unknown species"),</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "setosa",</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     multiple = FALSE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">validate_no_intersection &lt;- function(x, y, msg) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">248</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
+                      <pre class="language-r">  validate(need(length(intersect(x, y)) == 0, msg))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$summary &lt;- renderPrint({</pre>
+                      <pre class="language-r">#' Validates that dataset contains specific variable</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_in(input$species, iris$Species, "Species does not exist.")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     nrow(iris[iris$Species == input$species, ])</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">#' @param data (`data.frame`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' @param varname (`character(1)`) name of variable to check for in `data`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param msg (`character(1)`) message to display if `data` does not include `varname`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_in &lt;- function(x, choices, msg) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">148</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">262</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate(need(length(x) &gt; 0 &amp;&amp; length(choices) &gt; 0 &amp;&amp; all(x %in% choices), msg))</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validates that vector has length greater than 0</pre>
+                      <pre class="language-r">#' data &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   one = rep("a", length.out = 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   two = rep(c("a", "b"), length.out = 20)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x vector</pre>
+                      <pre class="language-r">#'     "var",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param msg message to display</pre>
+                      <pre class="language-r">#'     "Select variable",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     choices = c("one", "two", "three", "four"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'     selected = "one"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- data.frame(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = c(1:10, 11:20, 1:10),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   strata = rep(c("A", "B"), each = 15)</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   output$summary &lt;- renderText({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">#'     validate_has_variable(data, input$var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput("ref1", "Select strata1 to compare",</pre>
+                      <pre class="language-r">#'     paste0("Selected treatment variables: ", paste(input$var, collapse = ", "))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("A", "B", "C"), selected = "A"</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput("ref2", "Select strata2 to compare",</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("A", "B", "C"), selected = "B"</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   verbatimTextOutput("arm_summary")</pre>
+                      <pre class="language-r">validate_has_variable &lt;- function(data, varname, msg) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">289</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  if (length(varname) != 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">290</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    has_vars &lt;- varname %in% names(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">292</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$arm_summary &lt;- renderText({</pre>
+                      <pre class="language-r">    if (!all(has_vars)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">293</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     sample_1 &lt;- data$id[data$strata == input$ref1]</pre>
+                      <pre class="language-r">      if (missing(msg)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">294</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     sample_2 &lt;- data$id[data$strata == input$ref2]</pre>
+                      <pre class="language-r">        msg &lt;- sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">181</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">295</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          "%s does not have the required variables: %s.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">296</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_has_elements(sample_1, "No subjects in strata1.")</pre>
+                      <pre class="language-r">          deparse(substitute(data)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">297</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_has_elements(sample_2, "No subjects in strata2.")</pre>
+                      <pre class="language-r">          toString(varname[!has_vars])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     paste0(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">300</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "Number of samples in: strata1=", length(sample_1),</pre>
+                      <pre class="language-r">      validate(need(FALSE, msg))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       " comparions strata2=", length(sample_2)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#' Validate that variables has expected number of levels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_has_elements &lt;- function(x, msg) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">195</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  validate(need(length(x) &gt; 0, msg))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' If the number of levels of `x` is less than `min_levels`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' or greater than `max_levels` the validation will fail.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validates no intersection between two vectors</pre>
+                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @param x variable name. If `x` is not a factor, the unique values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   are treated as levels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
+                      <pre class="language-r">#' @param min_levels cutoff for minimum number of levels of `x`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param max_levels cutoff for maximum number of levels of `x`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x vector</pre>
+                      <pre class="language-r">#' @param var_name name of variable being validated for use in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y vector</pre>
+                      <pre class="language-r">#'   validation message</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @param msg (`character(1)`) message to display if `x` and `y` intersect</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' data &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = c(1:10, 11:20, 1:10),</pre>
+                      <pre class="language-r">#'   one = rep("a", length.out = 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   strata = rep(c("A", "B", "C"), each = 10)</pre>
+                      <pre class="language-r">#'   two = rep(c("a", "b"), length.out = 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   three = rep(c("a", "b", "c"), length.out = 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   four = rep(c("a", "b", "c", "d"), length.out = 20),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput("ref1", "Select strata1 to compare",</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("A", "B", "C"),</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "A"</pre>
+                      <pre class="language-r">#'   selectInput(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'     "var",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput("ref2", "Select strata2 to compare",</pre>
+                      <pre class="language-r">#'     "Select variable",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("A", "B", "C"),</pre>
+                      <pre class="language-r">#'     choices = c("one", "two", "three", "four"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "B"</pre>
+                      <pre class="language-r">#'     selected = "one"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'   output$summary &lt;- renderText({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     sample_1 &lt;- data$id[data$strata == input$ref1]</pre>
+                      <pre class="language-r">#'     validate_n_levels(data[[input$var]], min_levels = 2, max_levels = 15, var_name = input$var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     sample_2 &lt;- data$id[data$strata == input$ref2]</pre>
+                      <pre class="language-r">#'     paste0(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       "Levels of selected treatment variable: ",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_no_intersection(</pre>
+                      <pre class="language-r">#'       paste(levels(data[[input$var]]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       sample_1, sample_2,</pre>
+                      <pre class="language-r">#'         collapse = ", "</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "subjects within strata1 and strata2 cannot overlap"</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     paste0(</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "Number of subject in: reference treatment=", length(sample_1),</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       " comparions treatment=", length(sample_2)</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">validate_n_levels &lt;- function(x, min_levels = 1, max_levels = 12, var_name) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">354</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">  x_levels &lt;- if (is.factor(x)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">355</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">    levels(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">357</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    unique(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_no_intersection &lt;- function(x, y, msg) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">248</td>
+                    <td class="num">360</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  validate(need(length(intersect(x, y)) == 0, msg))</pre>
+                      <pre class="language-r">  if (!is.null(min_levels) &amp;&amp; !(is.null(max_levels))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">361</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    validate(need(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">362</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      length(x_levels) &gt;= min_levels &amp;&amp; length(x_levels) &lt;= max_levels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">251</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">363</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">364</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validates that dataset contains specific variable</pre>
+                      <pre class="language-r">        "%s variable needs minimum %s level(s) and maximum %s level(s).",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">253</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">365</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        var_name, min_levels, max_levels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">256</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">368</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
+                      <pre class="language-r">  } else if (!is.null(min_levels)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">257</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">369</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    validate(need(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">258</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">370</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`data.frame`)</pre>
+                      <pre class="language-r">      length(x_levels) &gt;= min_levels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">259</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">371</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param varname (`character(1)`) name of variable to check for in `data`</pre>
+                      <pre class="language-r">      sprintf("%s variable needs minimum %s levels(s)", var_name, min_levels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param msg (`character(1)`) message to display if `data` does not include `varname`</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">261</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                  <tr class="missed">
+                    <td class="num">373</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else if (!is.null(max_levels)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">262</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">374</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    validate(need(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">263</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">375</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      length(x_levels) &lt;= max_levels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">264</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">376</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      sprintf("%s variable needs maximum %s level(s)", var_name, max_levels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- data.frame(</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   one = rep("a", length.out = 20),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   two = rep(c("a", "b"), length.out = 20)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/landing_popup_module.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' Landing popup module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput(</pre>
+                      <pre class="language-r">#' @description Creates a landing welcome popup for `teal` applications.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "var",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Select variable",</pre>
+                      <pre class="language-r">#' This module is used to display a popup dialog when the application starts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("one", "two", "three", "four"),</pre>
+                      <pre class="language-r">#' The dialog blocks access to the application and must be closed with a button before the application can be viewed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "one"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' @param label (`character(1)`) Label of the module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
+                      <pre class="language-r">#' @param title (`character(1)`) Text to be displayed as popup title.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @param content (`character(1)`, `shiny.tag` or `shiny.tag.list`) with the content of the popup.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'  Passed to `...` of `shiny::modalDialog`. See examples.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r">#' @param buttons (`shiny.tag` or `shiny.tag.list`) Typically a `modalButton` or `actionButton`. See examples.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$summary &lt;- renderText({</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_has_variable(data, input$var)</pre>
+                      <pre class="language-r">#' @return A `teal_module` (extended with `teal_landing_module` class) to be used in `teal` applications.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     paste0("Selected treatment variables: ", paste(input$var, collapse = ", "))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' app1 &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'     landing_popup_module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_has_variable &lt;- function(data, varname, msg) {</pre>
+                      <pre class="language-r">#'       content = "A place for the welcome message or a disclaimer statement.",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">289</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(varname) != 0) {</pre>
+                      <pre class="language-r">#'       buttons = modalButton("Proceed")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">290</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    has_vars &lt;- varname %in% names(data)</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     example_module()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">292</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!all(has_vars)) {</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">293</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (missing(msg)) {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">294</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        msg &lt;- sprintf(</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">295</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "%s does not have the required variables: %s.",</pre>
+                      <pre class="language-r">#'   shinyApp(app1$ui, app1$server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">296</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          deparse(substitute(data)),</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">297</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toString(varname[!has_vars])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' app2 &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">300</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      validate(need(FALSE, msg))</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'     landing_popup_module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'       title = "Welcome",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       content = tags$b(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'         "A place for the welcome message or a disclaimer statement.",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Validate that variables has expected number of levels</pre>
+                      <pre class="language-r">#'         style = "color: red;"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'       buttons = tagList(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'         modalButton("Proceed"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If the number of levels of `x` is less than `min_levels`</pre>
+                      <pre class="language-r">#'         actionButton("read", "Read more",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' or greater than `max_levels` the validation will fail.</pre>
+                      <pre class="language-r">#'           onclick = "window.open('http://google.com', '_blank')"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for `shiny::validate`.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'         ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x variable name. If `x` is not a factor, the unique values</pre>
+                      <pre class="language-r">#'         actionButton("close", "Reject", onclick = "window.close()")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   are treated as levels.</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param min_levels cutoff for minimum number of levels of `x`</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param max_levels cutoff for maximum number of levels of `x`</pre>
+                      <pre class="language-r">#'     example_module()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param var_name name of variable being validated for use in</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   validation message</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   shinyApp(app2$ui, app2$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- data.frame(</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   one = rep("a", length.out = 20),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   two = rep(c("a", "b"), length.out = 20),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   three = rep(c("a", "b", "c"), length.out = 20),</pre>
+                      <pre class="language-r">landing_popup_module &lt;- function(label = "Landing Popup",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   four = rep(c("a", "b", "c", "d"), length.out = 20),</pre>
+                      <pre class="language-r">                                 title = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
+                      <pre class="language-r">                                 content = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                                 buttons = modalButton("Accept")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">61</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">330</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">62</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput(</pre>
+                      <pre class="language-r">  checkmate::assert_string(title, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">331</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">63</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "var",</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">332</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">64</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Select variable",</pre>
+                      <pre class="language-r">    content,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">333</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">65</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     choices = c("one", "two", "three", "four"),</pre>
+                      <pre class="language-r">    classes = c("character", "shiny.tag", "shiny.tag.list", "html"), null.ok = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "one"</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">335</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">67</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(buttons, classes = c("shiny.tag", "shiny.tag.list"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   verbatimTextOutput("summary")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">337</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">69</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  logger::log_info("Initializing landing_popup_module")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">339</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">71</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r">  module &lt;- module(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">340</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">72</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$summary &lt;- renderText({</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">341</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">73</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     validate_n_levels(data[[input$var]], min_levels = 2, max_levels = 15, var_name = input$var)</pre>
+                      <pre class="language-r">    server = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">342</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">74</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     paste0(</pre>
+                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">343</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">75</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "Levels of selected treatment variable: ",</pre>
+                      <pre class="language-r">        showModal(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">344</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">76</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       paste(levels(data[[input$var]]),</pre>
+                      <pre class="language-r">          modalDialog(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">345</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">77</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         collapse = ", "</pre>
+                      <pre class="language-r">            id = "landingpopup",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">346</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">78</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">            title = title,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">347</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">79</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">            content,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">348</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">80</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">            footer = buttons</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_n_levels &lt;- function(x, min_levels = 1, max_levels = 12, var_name) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">354</td>
+                    <td class="num">86</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_levels &lt;- if (is.factor(x)) {</pre>
+                      <pre class="language-r">  class(module) &lt;- c("teal_module_landing", class(module))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">355</td>
+                    <td class="num">87</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    levels(x)</pre>
+                      <pre class="language-r">  module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">357</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/init.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unique(x)</pre>
+                      <pre class="language-r"># This is the main function from teal to be used by the end-users. Although it delegates</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"># directly to `module_teal_with_splash.R`, we keep it in a separate file because its documentation is quite large</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r"># and it is very end-user oriented. It may also perform more argument checking with more informative</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">360</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(min_levels) &amp;&amp; !(is.null(max_levels))) {</pre>
+                      <pre class="language-r"># error messages.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">361</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">362</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      length(x_levels) &gt;= min_levels &amp;&amp; length(x_levels) &lt;= max_levels,</pre>
+                      <pre class="language-r">#' Create the server and UI function for the `shiny` app</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">363</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">364</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "%s variable needs minimum %s level(s) and maximum %s level(s).",</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">365</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var_name, min_levels, max_levels</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' End-users: This is the most important function for you to start a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">#' `teal` app that is composed of `teal` modules.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">368</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(min_levels)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">369</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">370</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      length(x_levels) &gt;= min_levels,</pre>
+                      <pre class="language-r">#' When initializing the `teal` app, if `datanames` are not set for the `teal_data` object,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">371</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("%s variable needs minimum %s levels(s)", var_name, min_levels)</pre>
+                      <pre class="language-r">#' defaults from the `teal_data` environment will be used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">373</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(max_levels)) {</pre>
+                      <pre class="language-r">#' @param data (`teal_data` or `teal_data_module`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">374</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate(need(</pre>
+                      <pre class="language-r">#' For constructing the data object, refer to [teal_data()] and [teal_data_module()].</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">375</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      length(x_levels) &lt;= max_levels,</pre>
+                      <pre class="language-r">#' @param modules (`list` or `teal_modules` or `teal_module`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">376</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("%s variable needs maximum %s level(s)", var_name, max_levels)</pre>
+                      <pre class="language-r">#'   nested list of `teal_modules` or `teal_module` objects or a single</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">#'   `teal_modules` or `teal_module` object. These are the specific output modules which</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   will be displayed in the `teal` application. See [modules()] and [module()] for</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   more details.</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/teal_data_module-eval_code.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">setOldClass("teal_data_module")</pre>
+                      <pre class="language-r">#' @param filter (`teal_slices`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   Specifies the initial filter using [teal_slices()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Evaluate code on `teal_data_module`</pre>
+                      <pre class="language-r">#' @param title (`shiny.tag` or `character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   The browser window title. Defaults to a title "teal app" with the icon of NEST.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">#'   Can be created using the `build_app_title()` or</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `eval_code` evaluates given code in the environment of the `teal_data` object created by the `teal_data_module`.</pre>
+                      <pre class="language-r">#'   by passing a valid `shiny.tag` which is a head tag with title and link tag.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The code is added to the `@code` slot of the `teal_data`.</pre>
+                      <pre class="language-r">#' @param header (`shiny.tag` or `character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   The header of the app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param object (`teal_data_module`)</pre>
+                      <pre class="language-r">#' @param footer (`shiny.tag` or `character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal.code::eval_code</pre>
+                      <pre class="language-r">#'   The footer of the app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param id (`character`) optional</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   string specifying the `shiny` module id in cases it is used as a `shiny` module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `eval_code` returns a `teal_data_module` object with a delayed evaluation of `code` when the module is run.</pre>
+                      <pre class="language-r">#'   rather than a standalone `shiny` app. This is a legacy feature.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @return Named list with server and UI functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' eval_code(tdm, "dataset1 &lt;- subset(dataset1, Species == 'virginica')")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @include teal_data_module.R</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name eval_code</pre>
+                      <pre class="language-r">#' @include modules.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_data_module</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases eval_code,teal_data_module,character-method</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases eval_code,teal_data_module,language-method</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases eval_code,teal_data_module,expression-method</pre>
+                      <pre class="language-r">#'   data = teal_data(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     new_iris = transform(iris, id = seq_len(nrow(iris))),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom methods setMethod</pre>
+                      <pre class="language-r">#'     new_mtcars = transform(mtcars, id = seq_len(nrow(mtcars))),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importMethodsFrom teal.code eval_code</pre>
+                      <pre class="language-r">#'     code = "</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       new_iris &lt;- transform(iris, id = seq_len(nrow(iris)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">setMethod("eval_code", signature = c("teal_data_module", "character"), function(object, code) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  teal_data_module(</pre>
+                      <pre class="language-r">#'       new_mtcars &lt;- transform(mtcars, id = seq_len(nrow(mtcars)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = function(id) {</pre>
+                      <pre class="language-r">#'     "</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      object$ui(ns("mutate_inner"))</pre>
+                      <pre class="language-r">#'   modules = modules(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'     module(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = function(id) {</pre>
+                      <pre class="language-r">#'       label = "data source",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">#'       server = function(input, output, session, data) {},</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal_data_rv &lt;- object$server("mutate_inner")</pre>
+                      <pre class="language-r">#'       ui = function(id, ...) tags$div(p("information about data source")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       datanames = "all"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.reactive(teal_data_rv)) {</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stop("The `teal_data_module` must return a reactive expression.", call. = FALSE)</pre>
+                      <pre class="language-r">#'     example_module(label = "example teal module"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'     module(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       "Iris Sepal.Length histogram",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        td &lt;- eventReactive(teal_data_rv(),</pre>
+                      <pre class="language-r">#'       server = function(input, output, session, data) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          {</pre>
+                      <pre class="language-r">#'         output$hist &lt;- renderPlot(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (inherits(teal_data_rv(), c("teal_data", "qenv.error"))) {</pre>
+                      <pre class="language-r">#'           hist(data()[["new_iris"]]$Sepal.Length)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              eval_code(teal_data_rv(), code)</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">#'       },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              teal_data_rv()</pre>
+                      <pre class="language-r">#'       ui = function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">#'         ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          },</pre>
+                      <pre class="language-r">#'         plotOutput(ns("hist"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ignoreNULL = FALSE</pre>
+                      <pre class="language-r">#'       },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'       datanames = "new_iris"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        td</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   filter = teal_slices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'     teal_slice(dataname = "new_iris", varname = "Species"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">})</pre>
+                      <pre class="language-r">#'     teal_slice(dataname = "new_iris", varname = "Sepal.Length"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     teal_slice(dataname = "new_mtcars", varname = "cyl"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">setMethod("eval_code", signature = c("teal_data_module", "language"), function(object, code) {</pre>
+                      <pre class="language-r">#'     exclude_varnames = list(new_iris = c("Sepal.Width", "Petal.Width")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  eval_code(object, code = paste(lang2calls(code), collapse = "\n"))</pre>
+                      <pre class="language-r">#'     module_specific = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">})</pre>
+                      <pre class="language-r">#'     mapping = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       `example teal module` = "new_iris Species",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">setMethod("eval_code", signature = c("teal_data_module", "expression"), function(object, code) {</pre>
+                      <pre class="language-r">#'       `Iris Sepal.Length histogram` = "new_iris Species",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  eval_code(object, code = paste(lang2calls(code), collapse = "\n"))</pre>
+                      <pre class="language-r">#'       global_filters = "new_mtcars cyl"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">})</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/TealAppDriver.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># FilteredData ------</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   title = "App title",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Drive a `teal` application</pre>
+                      <pre class="language-r">#'   header = tags$h1("Sample App"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   footer = tags$p("Copyright 2017 - 2023")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Extension of the `shinytest2::AppDriver` class with methods for</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' driving a teal application for performing interactions for `shinytest2` tests.</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">TealAppDriver &lt;- R6::R6Class( # nolint: object_name.</pre>
+                      <pre class="language-r">init &lt;- function(data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "TealAppDriver",</pre>
+                      <pre class="language-r">                 modules,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = shinytest2::AppDriver,</pre>
+                      <pre class="language-r">                 filter = teal_slices(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">                 title = build_app_title(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">                 header = tags$p(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">                 footer = tags$p(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize a `TealAppDriver` object for testing a `teal` application.</pre>
+                      <pre class="language-r">                 id = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  logger::log_trace("init initializing teal app with: data ('{ class(data) }').")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data,modules,filter,title,header,footer arguments passed to `init`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$new`</pre>
+                      <pre class="language-r">  # argument checking (independent)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  ## `data`</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return  Object of class `TealAppDriver`</pre>
+                      <pre class="language-r">  if (inherits(data, "TealData")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">108</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(data,</pre>
+                      <pre class="language-r">    lifecycle::deprecate_stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">109</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          modules,</pre>
+                      <pre class="language-r">      when = "0.15.0",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">110</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          filter = teal_slices(),</pre>
+                      <pre class="language-r">      what = "init(data)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">111</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          title = build_app_title(),</pre>
+                      <pre class="language-r">      paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">112</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          header = tags$p(),</pre>
+                      <pre class="language-r">        "TealData is no longer supported. Use teal_data() instead.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">113</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          footer = tags$p(),</pre>
+                      <pre class="language-r">        "Please follow migration instructions https://github.com/insightsengineering/teal/discussions/988."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      private$data &lt;- data</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$modules &lt;- modules</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$filter &lt;- filter</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      app &lt;- init(</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(data, c("teal_data", "teal_data_module"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data = data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modules = modules,</pre>
+                      <pre class="language-r">  ## `modules`</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        filter = filter,</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        title = title,</pre>
+                      <pre class="language-r">    .var.name = "modules",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        header = header,</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(modules, c("teal_modules", "teal_module")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        footer = footer</pre>
+                      <pre class="language-r">    checkmate::check_list(modules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_modules"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      suppressWarnings(</pre>
+                      <pre class="language-r">  if (inherits(modules, "teal_module")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        super$initialize(</pre>
+                      <pre class="language-r">    modules &lt;- list(modules)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyApp(app$ui, app$server),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          name = "teal",</pre>
+                      <pre class="language-r">  if (checkmate::test_list(modules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_modules"))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          variant = platform_variant(),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                    <td class="num">129</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ...</pre>
+                      <pre class="language-r">    modules &lt;- do.call(teal::modules, modules)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ## `filter`</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">133</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$set_active_ns()</pre>
+                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">  ## all other arguments</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Check if the app has shiny errors. This checks for global shiny errors.</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Note that any shiny errors dependent on shiny server render will only be captured after the teal module tab</pre>
+                      <pre class="language-r">    .var.name = "title",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' is visited because shiny will not trigger server computations when the tab is invisible.</pre>
+                      <pre class="language-r">    checkmate::check_string(title),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' So, navigate to the module tab you want to test before calling this function.</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(title, c("shiny.tag", "shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Although, this catches errors hidden in the other module tabs if they are already rendered.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expect_no_shiny_error = function() {</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      testthat::expect_null(</pre>
+                      <pre class="language-r">    .var.name = "header",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">143</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$get_html(".shiny-output-error:not(.shiny-output-error-validation)"),</pre>
+                      <pre class="language-r">    checkmate::check_string(header),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        info = "Shiny error is observed"</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(header, c("shiny.tag", "shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    .var.name = "footer",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Check if the app has no validation errors. This checks for global shiny validation errors.</pre>
+                      <pre class="language-r">    checkmate::check_string(footer),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expect_no_validation_error = function() {</pre>
+                      <pre class="language-r">    checkmate::check_multi_class(footer, c("shiny.tag", "shiny.tag.list", "html"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">66</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      testthat::expect_null(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">67</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$get_html(".shiny-output-error-validation"),</pre>
+                      <pre class="language-r">  checkmate::assert_character(id, max.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">68</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        info = "No validation error is observed"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  # log</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  teal.logger::log_system_info()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Check if the app has validation errors. This checks for global shiny validation errors.</pre>
+                      <pre class="language-r">  # argument transformations</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expect_validation_error = function() {</pre>
+                      <pre class="language-r">  ## `modules` - landing module</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">27<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  landing &lt;- extract_module(modules, "teal_module_landing")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">27<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  landing_module &lt;- NULL</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">27<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (length(landing) == 1L) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">74</td>
+                    <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      testthat::expect_false(</pre>
+                      <pre class="language-r">    landing_module &lt;- landing[[1L]]</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">75</td>
+                    <td class="num">162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is.null(self$get_html(".shiny-output-error-validation")),</pre>
+                      <pre class="language-r">    modules &lt;- drop_module(modules, "teal_module_landing")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">27<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else if (length(landing) &gt; 1L) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">76</td>
+                    <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        info = "Validation error is not observed"</pre>
+                      <pre class="language-r">    stop("Only one `landing_popup_module` can be used.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">  ## `filter` - app_id attribute</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Set the input in the `teal` app.</pre>
+                      <pre class="language-r">  attr(filter, "app_id") &lt;- create_app_id(data, modules)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param input_id (character) The shiny input id with it's complete name space.</pre>
+                      <pre class="language-r">  ## `filter` - convert teal.slice::teal_slices to teal::teal_slices</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param value The value to set the input to.</pre>
+                      <pre class="language-r">  filter &lt;- as.teal_slices(as.list(filter))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$set_inputs`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  # argument checking (interdependent)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
+                      <pre class="language-r">  ## `filter` - `modules`</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_input = function(input_id, value, ...) {</pre>
+                      <pre class="language-r">  if (isTRUE(attr(filter, "module_specific"))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      do.call(</pre>
+                      <pre class="language-r">    module_names &lt;- unlist(c(module_labels(modules), "global_filters"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$set_inputs,</pre>
+                      <pre class="language-r">    failed_mod_names &lt;- setdiff(names(attr(filter, "mapping")), module_names)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">178</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(setNames(list(value), input_id), list(...))</pre>
+                      <pre class="language-r">    if (length(failed_mod_names)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">179</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      stop(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">180</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">        sprintf(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">181</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "Some module names in the mapping arguments don't match module labels.\n %s not in %s",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">182</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          toString(failed_mod_names),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">183</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          toString(unique(module_names))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Navigate the teal tabs in the `teal` app.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (anyDuplicated(module_names)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param tabs (character) Labels of tabs to navigate to. The order of the tabs is important,</pre>
+                      <pre class="language-r">      # In teal we are able to set nested modules with duplicated label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' and it should start with the most parent level tab.</pre>
+                      <pre class="language-r">      # Because mapping argument bases on the relationship between module-label and filter-id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Note: In case the teal tab group has duplicate names, the first tab will be selected,</pre>
+                      <pre class="language-r">      # it is possible that module-label in mapping might refer to multiple teal_module (identified by the same label)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">192</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      stop(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">193</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        sprintf(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">194</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "Module labels should be unique when teal_slices(mapping = TRUE). Duplicated labels:\n%s ",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">195</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          toString(module_names[duplicated(module_names)])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' If you wish to select the second tab with the same name, use the suffix "_1".</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' If you wish to select the third tab with the same name, use the suffix "_2" and so on.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    navigate_teal_tab = function(tabs) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">201</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_character(tabs, min.len = 1)</pre>
+                      <pre class="language-r">  ## `data` - `modules`</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (tab in tabs) {</pre>
+                      <pre class="language-r">  if (inherits(data, "teal_data")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">203</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        root &lt;- "root"</pre>
+                      <pre class="language-r">    if (length(teal_data_datanames(data)) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">204</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$set_input(</pre>
+                      <pre class="language-r">      stop("The environment of `data` is empty.")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sprintf("teal-main_ui-%s-active_tab", root),</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # in case of teal_data_module this check is postponed to the srv_teal_with_splash</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          get_unique_labels(tab),</pre>
+                      <pre class="language-r">    is_modules_ok &lt;- check_modules_datanames(modules, teal_data_datanames(data))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          wait_ = FALSE</pre>
+                      <pre class="language-r">    if (!isTRUE(is_modules_ok)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      logger::log_error(is_modules_ok)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        root &lt;- sprintf("%s-%s", private$modules$label, get_unique_labels(tab))</pre>
+                      <pre class="language-r">      checkmate::assert(is_modules_ok, .var.name = "modules")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$wait_for_idle(timeout = private$idle_timeout)</pre>
+                      <pre class="language-r">    is_filter_ok &lt;- check_filter_datanames(filter, teal_data_datanames(data))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$set_active_ns()</pre>
+                      <pre class="language-r">    if (!isTRUE(is_filter_ok)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">215</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">      warning(is_filter_ok)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      # we allow app to continue if applied filters are outside</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">      # of possible data range</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active shiny name space for different components of the teal app.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return (`list`) The list of active shiny name space of the teal components.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_ns = function() {</pre>
+                      <pre class="language-r">  # Note regarding case `id = character(0)`:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">124</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(private$ns$module, character(0))) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">125</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        private$set_active_ns()</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">127</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      private$ns</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  # rather than creating a submodule of this module, we directly modify</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active shiny name space for interacting with the module content.</pre>
+                      <pre class="language-r">  # the UI and server with `id = character(0)` and calling the server function directly</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  res &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component.</pre>
+                      <pre class="language-r">    ui = ui_teal_with_splash(id = id, data = data, title = title, header = header, footer = footer),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_module_ns = function() {</pre>
+                      <pre class="language-r">    server = function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(private$ns$module, character(0))) {</pre>
+                      <pre class="language-r">      if (!is.null(landing_module)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">135</td>
+                    <td class="num">228</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_active_ns()</pre>
+                      <pre class="language-r">        do.call(landing_module$server, c(list(id = "landing_module_shiny_id"), landing_module$server_args))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$ns$module</pre>
+                      <pre class="language-r">      srv_teal_with_splash(id = id, data = data, modules = modules, filter = deep_copy_filter(filter))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active shiny name space bound with a custom `element` name.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  logger::log_trace("init teal app has been initialized.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param element `character(1)` custom element name.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  res</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component bound with the input `element`.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/reporter_previewer_module.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_module_element = function(element) {</pre>
+                      <pre class="language-r">#' Create a `teal` module for previewing a report</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(element)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf("#%s-%s", self$active_module_ns(), element)</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' This function wraps [teal.reporter::reporter_previewer_ui()] and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active shiny name space for interacting with the filter panel.</pre>
+                      <pre class="language-r">#' [teal.reporter::reporter_previewer_srv()] into a `teal_module` to be</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' used in `teal` applications.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    active_filters_ns = function() {</pre>
+                      <pre class="language-r">#' If you are creating a `teal` application using [init()] then this</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (identical(private$ns$filter_panel, character(0))) {</pre>
+                      <pre class="language-r">#' module will be added to your application automatically if any of your `teal_modules`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">155</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_active_ns()</pre>
+                      <pre class="language-r">#' support report generation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$ns$filter_panel</pre>
+                      <pre class="language-r">#' @inheritParams teal_modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' @param server_args (named `list`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#'  Arguments passed to [teal.reporter::reporter_previewer_srv()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the input from the module in the `teal` app.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This function will only access inputs from the name space of the current active teal module.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' `teal_module` (extended with `teal_module_previewer` class) containing the `teal.reporter` previewer functionality.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param input_id (character) The shiny input id to get the value from.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The value of the shiny input.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_module_input = function(input_id) {</pre>
+                      <pre class="language-r">reporter_previewer_module &lt;- function(label = "Report previewer", server_args = list()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">167</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">23</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(input_id)</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">168</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">24</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$get_value(input = sprintf("%s-%s", self$active_module_ns(), input_id))</pre>
+                      <pre class="language-r">  checkmate::assert_list(server_args, names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">25</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  checkmate::assert_true(all(names(server_args) %in% names(formals(teal.reporter::reporter_previewer_srv))))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the output from the module in the `teal` app.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">27</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This function will only access outputs from the name space of the current active teal module.</pre>
+                      <pre class="language-r">  logger::log_info("Initializing reporter_previewer_module")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">29</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param output_id (character) The shiny output id to get the value from.</pre>
+                      <pre class="language-r">  srv &lt;- function(id, reporter, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">30</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    teal.reporter::reporter_previewer_srv(id, reporter, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The value of the shiny output.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_module_output = function(output_id) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">33</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(output_id)</pre>
+                      <pre class="language-r">  ui &lt;- function(id, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
+                    <td class="num">34</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$get_value(output = sprintf("%s-%s", self$active_module_ns(), output_id))</pre>
+                      <pre class="language-r">    teal.reporter::reporter_previewer_ui(id, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">37</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Set the input in the module in the `teal` app.</pre>
+                      <pre class="language-r">  module &lt;- module(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This function will only set inputs in the name space of the current active teal module.</pre>
+                      <pre class="language-r">    label = "temporary label",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    server = srv, ui = ui,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">40</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param input_id (character) The shiny input id to get the value from.</pre>
+                      <pre class="language-r">    server_args = server_args, ui_args = list(), datanames = NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param value The value to set the input to.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  # Module is created with a placeholder label and the label is changed later.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
+                      <pre class="language-r">  # This is to prevent another module being labeled "Report previewer".</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">44</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_module_input = function(input_id, value) {</pre>
+                      <pre class="language-r">  class(module) &lt;- c("teal_module_previewer", class(module))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">190</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(input_id)</pre>
+                      <pre class="language-r">  module$label &lt;- label</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(value)</pre>
+                      <pre class="language-r">  module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">192</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$set_input(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">193</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/teal_slices.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf("%s-%s", self$active_module_ns(), input_id),</pre>
+                      <pre class="language-r">#' Filter settings for `teal` applications</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">194</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        value</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' Specify initial filter states and filtering settings for a `teal` app.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">196</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' Produces a `teal_slices` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' The `teal_slice` components will specify filter states that will be active when the app starts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active datasets that can be accessed via the filter panel of the current active teal module.</pre>
+                      <pre class="language-r">#' Attributes (created with the named arguments) will configure the way the app applies filters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_filter_vars = function() {</pre>
+                      <pre class="language-r">#' See argument descriptions for details.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      displayed_datasets_index &lt;- self$get_js(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">#' @inheritParams teal.slice::teal_slices</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Array.from(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              document.querySelectorAll(\"#%s-active-filter_active_vars_contents &gt; span\")</pre>
+                      <pre class="language-r">#' @param module_specific (`logical(1)`) optional,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ).map((el) =&gt; window.getComputedStyle(el).display != \"none\");",</pre>
+                      <pre class="language-r">#'  - `FALSE` (default) when one filter panel applied to all modules.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$active_filters_ns()</pre>
+                      <pre class="language-r">#'  All filters will be shared by all modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'  - `TRUE` when filter panel module-specific.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) |&gt; unlist()</pre>
+                      <pre class="language-r">#'  Modules can have different set of filters specified - see `mapping` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param mapping `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      available_datasets &lt;- self$get_text(</pre>
+                      <pre class="language-r">#' _This is a new feature. Do kindly share your opinions on</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">#' [`teal`'s GitHub repository](https://github.com/insightsengineering/teal/)._</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "#%s-active-filter_active_vars_contents .filter_panel_dataname",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$active_filters_ns()</pre>
+                      <pre class="language-r">#'  (named `list`) specifies which filters will be active in which modules on app start.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'  Elements should contain character vector of `teal_slice` `id`s (see [`teal.slice::teal_slice`]).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'  Names of the list should correspond to `teal_module` `label` set in [module()] function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      available_datasets[displayed_datasets_index]</pre>
+                      <pre class="language-r">#'  - `id`s listed under `"global_filters` will be active in all modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'  - If missing, all filters will be applied to all modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#'  - If empty list, all filters will be available to all modules but will start inactive.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active filter variables from a dataset in the `teal` app.</pre>
+                      <pre class="language-r">#'  - If `module_specific` is `FALSE`, only `global_filters` will be active on start.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @param app_id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to get the filter variables from.</pre>
+                      <pre class="language-r">#'  For internal use only, do not set manually.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' If `NULL`, the filter variables for all the datasets will be returned in a list.</pre>
+                      <pre class="language-r">#'  Added by `init` so that a `teal_slices` can be matched to the app in which it was used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_data_filters = function(dataset_name = NULL) {</pre>
+                      <pre class="language-r">#'  Used for verifying snapshots uploaded from file. See `snapshot`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(dataset_name, null.ok = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datasets &lt;- self$get_active_filter_vars()</pre>
+                      <pre class="language-r">#' @param x (`list`) of lists to convert to `teal_slices`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_subset(dataset_name, datasets)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      active_filters &lt;- lapply(</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        datasets,</pre>
+                      <pre class="language-r">#' A `teal_slices` object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(x) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$get_text(</pre>
+                      <pre class="language-r">#' @seealso [`teal.slice::teal_slices`], [`teal.slice::teal_slice`], [slices_store()]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sprintf(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "#%s-active-%s-filters .filter-card-varname",</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              self$active_filters_ns(),</pre>
+                      <pre class="language-r">#' filter &lt;- teal_slices(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              x</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Species", id = "species"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Sepal.Length", id = "sepal_length"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ) |&gt;</pre>
+                      <pre class="language-r">#'   teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            gsub(pattern = "\\s", replacement = "")</pre>
+                      <pre class="language-r">#'     dataname = "iris", id = "long_petals", title = "Long petals", expr = "Petal.Length &gt; 5"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "mtcars", varname = "mpg", id = "mtcars_mpg"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      names(active_filters) &lt;- datasets</pre>
+                      <pre class="language-r">#'   mapping = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(dataset_name)) {</pre>
+                      <pre class="language-r">#'     module1 = c("species", "sepal_length"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        active_filters &lt;- active_filters[[dataset_name]]</pre>
+                      <pre class="language-r">#'     module2 = c("mtcars_mpg"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'     global_filters = "long_petals"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      active_filters</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get the active filter values from the active filter selection of dataset from the filter panel.</pre>
+                      <pre class="language-r">#' app &lt;- init(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'   data = teal_data(iris = iris, mtcars = mtcars),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to get the filter values from.</pre>
+                      <pre class="language-r">#'   modules = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param var_name (character) The name of the variable to get the filter values from.</pre>
+                      <pre class="language-r">#'     module("module1"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param is_numeric (logical) If the variable is numeric or not.</pre>
+                      <pre class="language-r">#'     module("module2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The value of the active filter selection.</pre>
+                      <pre class="language-r">#'   filter = filter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_active_filter_selection = function(dataset_name, var_name, is_numeric = FALSE) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(dataset_name)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(var_name)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_flag(is_numeric)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      selection_suffix &lt;- ifelse(is_numeric, "selection_manual", "selection")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      self$get_value(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        input = sprintf(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          "%s-active-%s-filter-%s_%s-inputs-%s",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          self$active_filters_ns(),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          var_name,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          selection_suffix</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Add a new variable from the dataset to be filtered.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to add the filter variable to.</pre>
+                      <pre class="language-r">teal_slices &lt;- function(...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param var_name (character) The name of the variable to add to the filter panel.</pre>
+                      <pre class="language-r">                        exclude_varnames = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                        include_varnames = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
+                      <pre class="language-r">                        count_type = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    add_filter_var = function(dataset_name, var_name) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">278</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(dataset_name)</pre>
+                      <pre class="language-r">                        allow_add = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">279</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(var_name)</pre>
+                      <pre class="language-r">                        module_specific = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">280</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$set_input(</pre>
+                      <pre class="language-r">                        mapping,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">281</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">                        app_id = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">282</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "%s-add-%s-filter-var_to_add",</pre>
+                      <pre class="language-r">  shiny::isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">283</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$active_filters_ns(),</pre>
+                      <pre class="language-r">    checkmate::assert_flag(allow_add)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">284</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name</pre>
+                      <pre class="language-r">    checkmate::assert_flag(module_specific)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">285</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">    if (!missing(mapping)) checkmate::assert_list(mapping, types = c("character", "NULL"), names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">286</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var_name</pre>
+                      <pre class="language-r">    checkmate::assert_string(app_id, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">288</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">    slices &lt;- list(...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">289</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    all_slice_id &lt;- vapply(slices, `[[`, character(1L), "id")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">291</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Remove an active filter variable of a dataset from the active filter variables panel.</pre>
+                      <pre class="language-r">    if (missing(mapping)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">292</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">61<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      mapping &lt;- list(global_filters = all_slice_id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to remove the filter variable from.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">294</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' If `NULL`, all the filter variables will be removed.</pre>
+                      <pre class="language-r">    if (!module_specific) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param var_name (character) The name of the variable to remove from the filter panel.</pre>
+                      <pre class="language-r">      mapping[setdiff(names(mapping), "global_filters")] &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' If `NULL`, all the filter variables of the dataset will be removed.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">298</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
+                      <pre class="language-r">    failed_slice_id &lt;- setdiff(unlist(mapping), all_slice_id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">299</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">112<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    remove_filter_var = function(dataset_name = NULL, var_name = NULL) {</pre>
+                      <pre class="language-r">    if (length(failed_slice_id)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">300</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(dataset_name, null.ok = TRUE)</pre>
+                      <pre class="language-r">      stop(sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">301</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(var_name, null.ok = TRUE)</pre>
+                      <pre class="language-r">        "Filters in mapping don't match any available filter.\n %s not in %s",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">302</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(dataset_name)) {</pre>
+                      <pre class="language-r">        toString(failed_slice_id),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">303</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        remove_selector &lt;- sprintf(</pre>
+                      <pre class="language-r">        toString(all_slice_id)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">304</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "#%s-active-remove_all_filters",</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">305</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$active_filters_ns()</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">307</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (is.null(var_name)) {</pre>
+                      <pre class="language-r">    tss &lt;- teal.slice::teal_slices(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">308</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        remove_selector &lt;- sprintf(</pre>
+                      <pre class="language-r">      ...,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">309</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "#%s-active-%s-remove_filters",</pre>
+                      <pre class="language-r">      exclude_varnames = exclude_varnames,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">310</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$active_filters_ns(),</pre>
+                      <pre class="language-r">      include_varnames = include_varnames,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">311</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name</pre>
+                      <pre class="language-r">      count_type = count_type,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">312</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      allow_add = allow_add</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">314</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        remove_selector &lt;- sprintf(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">315</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "#%s-active-%s-filter-%s_%s-remove",</pre>
+                      <pre class="language-r">    attr(tss, "mapping") &lt;- mapping</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">316</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$active_filters_ns(),</pre>
+                      <pre class="language-r">    attr(tss, "module_specific") &lt;- module_specific</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">317</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name,</pre>
+                      <pre class="language-r">    attr(tss, "app_id") &lt;- app_id</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">318</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name,</pre>
+                      <pre class="language-r">    class(tss) &lt;- c("modules_teal_slices", class(tss))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">319</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          var_name</pre>
+                      <pre class="language-r">    tss</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">322</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$click(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">323</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        selector = remove_selector</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @rdname teal_slices</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">325</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Set the active filter values for a variable of a dataset in the active filter variable panel.</pre>
+                      <pre class="language-r">as.teal_slices &lt;- function(x) { # nolint: object_name.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  checkmate::assert_list(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">330</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to set the filter value for.</pre>
+                      <pre class="language-r">  lapply(x, checkmate::assert_list, names = "named", .var.name = "list element")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param var_name (character) The name of the variable to set the filter value for.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">332</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param input The value to set the filter to.</pre>
+                      <pre class="language-r">  attrs &lt;- attributes(unclass(x))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">333</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">28<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ans &lt;- lapply(x, function(x) if (is.teal_slice(x)) x else as.teal_slice(x))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param is_numeric (logical) If the variable is numeric or not.</pre>
+                      <pre class="language-r">  do.call(teal_slices, c(ans, attrs))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_active_filter_selection = function(dataset_name, var_name, input, is_numeric = FALSE) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(dataset_name)</pre>
+                      <pre class="language-r">#' @rdname teal_slices</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(var_name)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">339</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_string(input)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::check_flag(is_numeric)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">c.teal_slices &lt;- function(...) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">137</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selection_suffix &lt;- ifelse(is_numeric, "selection_manual", "selection")</pre>
+                      <pre class="language-r">  x &lt;- list(...)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">138</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$set_input(</pre>
+                      <pre class="language-r">  checkmate::assert_true(all(vapply(x, is.teal_slices, logical(1L))), .var.name = "all arguments are teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">139</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">140</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "%s-active-%s-filter-%s_%s-inputs-%s",</pre>
+                      <pre class="language-r">  all_attributes &lt;- lapply(x, attributes)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">141</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$active_filters_ns(),</pre>
+                      <pre class="language-r">  all_attributes &lt;- coalesce_r(all_attributes)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">142</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name,</pre>
+                      <pre class="language-r">  all_attributes &lt;- all_attributes[names(all_attributes) != "class"]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset_name,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">144</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          var_name,</pre>
+                      <pre class="language-r">  do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">145</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selection_suffix</pre>
+                      <pre class="language-r">    teal_slices,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">351</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">146</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">    c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">147</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input</pre>
+                      <pre class="language-r">      unique(unlist(x, recursive = FALSE)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">353</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">148</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      all_attributes</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">149</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Wrapper around `get_html` that passes the output directly to `rvest::read_html`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param selector `(character(1))` passed to `get_html`.</pre>
+                      <pre class="language-r">#' Deep copy `teal_slices`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">361</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return An XML document.</pre>
+                      <pre class="language-r">#' it's important to create a new copy of `teal_slices` when</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_html_rvest = function(selector) {</pre>
+                      <pre class="language-r">#' starting a new `shiny` session. Otherwise, object will be shared</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rvest::read_html(self$get_html(selector))</pre>
+                      <pre class="language-r">#' by multiple users as it is created in global environment before</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' `shiny` session starts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Wrapper around `get_url()` method that opens the app in the browser.</pre>
+                      <pre class="language-r">#' @param filter (`teal_slices`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @return `teal_slices`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Nothing. Opens the underlying teal app in the browser.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    open_url = function() {</pre>
+                      <pre class="language-r">deep_copy_filter &lt;- function(filter) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">369</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      browseURL(self$get_url())</pre>
+                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">370</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  shiny::isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">371</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">    filter_copy &lt;- lapply(filter, function(slice) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">372</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private members ----</pre>
+                      <pre class="language-r">      teal.slice::as.teal_slice(as.list(slice))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">374</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private attributes ----</pre>
+                      <pre class="language-r">    attributes(filter_copy) &lt;- attributes(filter)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">375</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = NULL,</pre>
+                      <pre class="language-r">    filter_copy</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules = NULL,</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter = teal_slices(),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/tdata.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ns = list(</pre>
+                      <pre class="language-r">#' Create a `tdata` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      module = character(0),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filter_panel = character(0)</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">382</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    idle_timeout = 20000, # 20 seconds</pre>
+                      <pre class="language-r">#' Create a new object called `tdata` which contains `data`, a `reactive` list of `data.frames`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    load_timeout = 100000, # 100 seconds</pre>
+                      <pre class="language-r">#' (or `MultiAssayExperiment`), with attributes:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private methods ----</pre>
+                      <pre class="language-r">#' - `code` (`reactive`) containing code used to generate the data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_active_ns = function() {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      all_inputs &lt;- self$get_values()$input</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      active_tab_inputs &lt;- all_inputs[grepl("-active_tab$", names(all_inputs))]</pre>
+                      <pre class="language-r">#' - join_keys (`join_keys`) containing the relationships between the data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' - metadata (named `list`) containing any metadata associated with the data frames</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tab_ns &lt;- lapply(names(active_tab_inputs), function(name) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        gsub(</pre>
+                      <pre class="language-r">#' @name tdata</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pattern = "-active_tab$",</pre>
+                      <pre class="language-r">#' @param data (named `list`) A list of `data.frame` or `MultiAssayExperiment` objects,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          replacement = sprintf("-%s", active_tab_inputs[[name]]),</pre>
+                      <pre class="language-r">#'  which optionally can be `reactive`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          name</pre>
+                      <pre class="language-r">#'   Inside this object all of these items will be made `reactive`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @param code (`character` or `reactive` which evaluates to a `character`) containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }) %&gt;%</pre>
+                      <pre class="language-r">#'   the code used to generate the data. This should be `reactive` if the code is changing</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">396</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        unlist()</pre>
+                      <pre class="language-r">#'   during a reactive context (e.g. if filtering changes the code). Inside this</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">397</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      active_ns &lt;- tab_ns[1]</pre>
+                      <pre class="language-r">#'   object `code` will be made reactive</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">398</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(tab_ns) &gt; 1) {</pre>
+                      <pre class="language-r">#' @param join_keys (`teal.data::join_keys`) object containing relationships between the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">399</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        for (i in 2:length(tab_ns)) {</pre>
+                      <pre class="language-r">#'   datasets.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          next_ns &lt;- tab_ns[i]</pre>
+                      <pre class="language-r">#' @param metadata (named `list`) each element contains a list of metadata about the named `data.frame`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">401</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (grepl(pattern = active_ns, next_ns)) {</pre>
+                      <pre class="language-r">#' Each element of these list should be atomic and length one.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">402</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            active_ns &lt;- next_ns</pre>
+                      <pre class="language-r">#' @return A `tdata` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' @seealso `as_tdata`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">406</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$ns$module &lt;- sprintf("%s-%s", active_ns, "module")</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">408</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      component &lt;- "filter_panel"</pre>
+                      <pre class="language-r">#' data &lt;- new_tdata(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">409</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(self$get_html(sprintf("#teal-main_ui-%s", component)))) {</pre>
+                      <pre class="language-r">#'   data = list(iris = iris, mtcars = reactive(mtcars), dd = data.frame(x = 1:10)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">410</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$ns[[component]] &lt;- sprintf("teal-main_ui-%s", component)</pre>
+                      <pre class="language-r">#'   code = "iris &lt;- iris</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#'     mtcars &lt;- mtcars</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">412</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$ns[[component]] &lt;- sprintf("%s-module_%s", active_ns, component)</pre>
+                      <pre class="language-r">#'     dd &lt;- data.frame(x = 1:10)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   metadata = list(dd = list(author = "NEST"), iris = list(version = 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">414</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">416</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#' # Extract a data.frame</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/include_css_js.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Include `CSS` files from `/inst/css/` package directory to application header</pre>
+                      <pre class="language-r">#' isolate(data[["iris"]]())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `system.file` should not be used to access files in other packages, it does</pre>
+                      <pre class="language-r">#' # Get code</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
+                      <pre class="language-r">#' isolate(get_code_tdata(data))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as needed. Thus, we do not export this method.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # Get metadata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param pattern (`character`) pattern of files to be included</pre>
+                      <pre class="language-r">#' get_metadata(data, "iris")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return HTML code that includes `CSS` files.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">new_tdata &lt;- function(data, code = "", join_keys = NULL, metadata = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">include_css_files &lt;- function(pattern = "*") {</pre>
+                      <pre class="language-r">  lifecycle::deprecate_soft(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">12</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">49</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  css_files &lt;- list.files(</pre>
+                      <pre class="language-r">    when = "0.15.0",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">13</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">50</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    system.file("css", package = "teal", mustWork = TRUE),</pre>
+                      <pre class="language-r">    what = "tdata()",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">14</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">51</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pattern = pattern, full.names = TRUE</pre>
+                      <pre class="language-r">    details = paste(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">34<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "tdata is deprecated and will be removed in the next release. Use `teal_data` instead.\n",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">34<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "Please follow migration instructions https://github.com/insightsengineering/teal/discussions/987."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">17</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  singleton(</pre>
+                      <pre class="language-r">  checkmate::assert_list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">18</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tags$head(lapply(css_files, includeCSS))</pre>
+                      <pre class="language-r">    data,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">34<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    any.missing = FALSE, names = "unique",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">34<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    types = c("data.frame", "reactive", "MultiAssayExperiment")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  checkmate::assert_class(join_keys, "join_keys", null.ok = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">29<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_multi_class(code, c("character", "reactive"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Include `JS` files from `/inst/js/` package directory to application header</pre>
+                      <pre class="language-r">  checkmate::assert_list(metadata, names = "unique", null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_subset(names(metadata), names(data))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `system.file` should not be used to access files in other packages, it does</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">25<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (is.reactive(code)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    isolate(checkmate::assert_class(code(), "character", .var.name = "code"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as needed. Thus, we do not export this method</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # create reactive data.frames</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param pattern (`character`) pattern of files to be included, passed to `system.file`</pre>
+                      <pre class="language-r">  for (x in names(data)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param except (`character`) vector of basename filenames to be excluded</pre>
+                      <pre class="language-r">    if (!is.reactive(data[[x]])) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">31<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      data[[x]] &lt;- do.call(reactive, list(as.name(x)), envir = list2env(data[x]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return HTML code that includes `JS` files.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">include_js_files &lt;- function(pattern = NULL, except = NULL) {</pre>
+                      <pre class="language-r">  # set attributes</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(except, min.len = 1, any.missing = FALSE, null.ok = TRUE)</pre>
+                      <pre class="language-r">  attr(data, "code") &lt;- if (is.reactive(code)) code else reactive(code)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  js_files &lt;- list.files(system.file("js", package = "teal", mustWork = TRUE), pattern = pattern, full.names = TRUE)</pre>
+                      <pre class="language-r">  attr(data, "join_keys") &lt;- join_keys</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">81</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  js_files &lt;- js_files[!(basename(js_files) %in% except)] # no-op if except is NULL</pre>
+                      <pre class="language-r">  attr(data, "metadata") &lt;- metadata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # set class</pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  singleton(lapply(js_files, includeScript))</pre>
+                      <pre class="language-r">  class(data) &lt;- c("tdata", class(data))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Run `JS` file from `/inst/js/` package directory</pre>
+                      <pre class="language-r">#' Function to convert a `tdata` object to an `environment`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is triggered from the server to execute on the client</pre>
+                      <pre class="language-r">#' Any `reactive` expressions inside `tdata` are evaluated first.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rather than triggered directly on the client.</pre>
+                      <pre class="language-r">#' @param data (`tdata`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Unlike `include_js_files` which includes `JavaScript` functions,</pre>
+                      <pre class="language-r">#' @return An `environment`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the `run_js` actually executes `JavaScript` functions.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `system.file` should not be used to access files in other packages, it does</pre>
+                      <pre class="language-r">#' data &lt;- new_tdata(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
+                      <pre class="language-r">#'   data = list(iris = iris, mtcars = reactive(mtcars)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as needed. Thus, we do not export this method.</pre>
+                      <pre class="language-r">#'   code = "iris &lt;- iris</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     mtcars = mtcars"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param files (`character`) vector of filenames.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return returns `NULL`, invisibly.</pre>
+                      <pre class="language-r">#' my_env &lt;- isolate(tdata2env(data))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">run_js_files &lt;- function(files) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(files, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">tdata2env &lt;- function(data) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(files, function(file) {</pre>
+                      <pre class="language-r">  checkmate::assert_class(data, "tdata")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinyjs::runjs(paste0(readLines(system.file("js", file, package = "teal", mustWork = TRUE)), collapse = "\n"))</pre>
+                      <pre class="language-r">  list2env(lapply(data, function(x) if (is.reactive(x)) x() else x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(NULL)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Wrapper for `get_code.tdata`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Code to include `teal` `CSS` and `JavaScript` files</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' This wrapper is to be used by downstream packages to extract the code of a `tdata` object.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is useful when you want to use the same `JavaScript` and `CSS` files that are</pre>
+                      <pre class="language-r">#' @param data (`tdata`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' used with the `teal` application.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is also useful for running standalone modules in `teal` with the correct</pre>
+                      <pre class="language-r">#' @return (`character`) code used in the `tdata` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' styles.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Also initializes `shinyjs` so you can use it.</pre>
+                      <pre class="language-r">get_code_tdata &lt;- function(data) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_class(data, "tdata")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  attr(data, "code")()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">}</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Extract `join_keys` from `tdata`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Simply add `include_teal_css_js()` as one of the UI elements.</pre>
+                      <pre class="language-r">#' @param data (`tdata`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `shiny.tag.list`.</pre>
+                      <pre class="language-r">#' @param ... Additional arguments (not used)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">include_teal_css_js &lt;- function() {</pre>
+                      <pre class="language-r">join_keys.tdata &lt;- function(data, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tagList(</pre>
+                      <pre class="language-r">  attr(data, "join_keys")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinyjs::useShinyjs(),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_css_files(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # init.js is executed from the server</pre>
+                      <pre class="language-r">#' Function to get metadata from a `tdata` object</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_js_files(except = "init.js"),</pre>
+                      <pre class="language-r">#' @param data (`tdata` - object) to extract the data from</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    shinyjs::hidden(icon("gear")), # add hidden icon to load font-awesome css for icons</pre>
+                      <pre class="language-r">#' @param dataname (`character(1)`) the dataset name whose metadata is requested</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @return Either list of metadata or NULL if no metadata.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/module_filter_manager.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Manage multiple `FilteredData` objects</pre>
+                      <pre class="language-r">get_metadata &lt;- function(data, dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_string(dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Oversee filter states across the entire application.</pre>
+                      <pre class="language-r">  UseMethod("get_metadata", data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This module observes changes in the filters of each `FilteredData` object</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and keeps track of all filters used. A mapping of filters to modules</pre>
+                      <pre class="language-r">#' @rdname get_metadata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' is kept in the `mapping_matrix` object (which is actually a `data.frame`)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' that tracks which filters (rows) are active in which modules (columns).</pre>
+                      <pre class="language-r">get_metadata.tdata &lt;- function(data, dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  metadata &lt;- attr(data, "metadata")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_filter_manager</pre>
+                      <pre class="language-r">  if (is.null(metadata)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id (`character(1)`)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `shiny` module id.</pre>
+                      <pre class="language-r">  metadata[[dataname]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filtered_data_list (named `list`)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  A list, possibly nested, of `FilteredData` objects.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Each `FilteredData` will be served to one module in the `teal` application.</pre>
+                      <pre class="language-r">#' @rdname get_metadata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  The structure of the list must reflect the nesting of modules in tabs</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  and the names of the list must match the labels of their respective modules.</pre>
+                      <pre class="language-r">get_metadata.default &lt;- function(data, dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">154</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams init</pre>
+                      <pre class="language-r">  stop("get_metadata function not implemented for this object")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of `reactive`s, each holding a `teal_slices`, as returned by `filter_manager_module_srv`.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#' Downgrade `teal_data` objects in modules for compatibility</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Filter manager modal</pre>
+                      <pre class="language-r">#' Convert `teal_data` to `tdata` in `teal` modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Opens a modal containing the filter manager UI.</pre>
+                      <pre class="language-r">#' Recent changes in `teal` cause modules to fail because modules expect a `tdata` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' to be passed to the `data` argument but instead they receive a `teal_data` object,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name module_filter_manager_modal</pre>
+                      <pre class="language-r">#' which is additionally wrapped in a reactive expression in the server functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams module_filter_manager</pre>
+                      <pre class="language-r">#' In order to easily adapt such modules without a proper refactor,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' use this function to downgrade the `data` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#' @param x data object, either `tdata` or `teal_data`, the latter possibly in a reactive expression</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_manager_modal</pre>
+                      <pre class="language-r">#' @return Object of class `tdata`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">filter_manager_modal_ui &lt;- function(id) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$button(</pre>
+                      <pre class="language-r">#' td &lt;- teal_data()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = ns("show"),</pre>
+                      <pre class="language-r">#' td &lt;- within(td, iris &lt;- iris) %&gt;% within(mtcars &lt;- mtcars)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">175</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "btn action-button filter_manager_button",</pre>
+                      <pre class="language-r">#' td</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">176</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    title = "Show filters manager modal",</pre>
+                      <pre class="language-r">#' as_tdata(td)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">177</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    icon("gear")</pre>
+                      <pre class="language-r">#' as_tdata(reactive(td))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname tdata_deprecation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_manager_modal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">filter_manager_modal_srv &lt;- function(id, filtered_data_list, filter) {</pre>
+                      <pre class="language-r">as_tdata &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">  if (inherits(x, "tdata")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(input$show, {</pre>
+                      <pre class="language-r">    return(x)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">50</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace("filter_manager_modal_srv@1 show button has been clicked.")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">51</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      showModal(</pre>
+                      <pre class="language-r">  if (is.reactive(x)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">52</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modalDialog(</pre>
+                      <pre class="language-r">    checkmate::assert_class(isolate(x()), "teal_data")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">53</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filter_manager_ui(session$ns("filter_manager")),</pre>
+                      <pre class="language-r">    datanames &lt;- isolate(teal_data_datanames(x()))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">54</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          size = "l",</pre>
+                      <pre class="language-r">    datasets &lt;- sapply(datanames, function(dataname) reactive(x()[[dataname]]), simplify = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">55</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          footer = NULL,</pre>
+                      <pre class="language-r">    code &lt;- reactive(teal.code::get_code(x()))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">56</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          easyClose = TRUE</pre>
+                      <pre class="language-r">    join_keys &lt;- isolate(teal.data::join_keys(x()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  } else if (inherits(x, "teal_data")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    datanames &lt;- teal_data_datanames(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    datasets &lt;- sapply(datanames, function(dataname) reactive(x[[dataname]]), simplify = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    code &lt;- reactive(teal.code::get_code(x))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter_manager_srv("filter_manager", filtered_data_list, filter)</pre>
+                      <pre class="language-r">    join_keys &lt;- isolate(teal.data::join_keys(x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  new_tdata(data = datasets, code = code, join_keys = join_keys)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_manager</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/TealAppDriver.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">filter_manager_ui &lt;- function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">67</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(id)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">68</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  tags$div(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">69</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    class = "filter_manager_content",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">70</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    tableOutput(ns("slices_table")),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">71</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    snapshot_manager_ui(ns("snapshot_manager"))</pre>
+                      <pre class="language-r"># FilteredData ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' Drive a `teal` application</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname module_filter_manager</pre>
+                      <pre class="language-r">#' Extension of the `shinytest2::AppDriver` class with methods for</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">filter_manager_srv &lt;- function(id, filtered_data_list, filter) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">23<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">#' driving a teal application for performing interactions for `shinytest2` tests.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logger::log_trace("filter_manager_srv initializing for: { paste(names(filtered_data_list), collapse = ', ')}.")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_module_specific &lt;- isTRUE(attr(filter, "module_specific"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">TealAppDriver &lt;- R6::R6Class( # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Create a global list of slices.</pre>
+                      <pre class="language-r">  "TealAppDriver",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Contains all available teal_slice objects available to all modules.</pre>
+                      <pre class="language-r">  inherit = shinytest2::AppDriver,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Passed whole to instances of FilteredData used for individual modules.</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Down there a subset that pertains to the data sets used in that module is applied and displayed.</pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices_global &lt;- reactiveVal(filter)</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Initialize a `TealAppDriver` object for testing a `teal` application.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filtered_data_list &lt;-</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is_module_specific) {</pre>
+                      <pre class="language-r">    #' @param data,modules,filter,title,header,footer arguments passed to `init`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Retrieve the first FilteredData from potentially nested list.</pre>
+                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$new`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # List of length one is named "global_filters" because that name is forbidden for a module label.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(global_filters = unlist(filtered_data_list)[[1]])</pre>
+                      <pre class="language-r">    #' @return  Object of class `TealAppDriver`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    initialize = function(data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Flatten potentially nested list of FilteredData objects while maintaining useful names.</pre>
+                      <pre class="language-r">                          modules,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Simply using `unlist` would result in concatenated names.</pre>
+                      <pre class="language-r">                          filter = teal_slices(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        flatten_nested &lt;- function(x, name = NULL) {</pre>
+                      <pre class="language-r">                          title = build_app_title(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (inherits(x, "FilteredData")) {</pre>
+                      <pre class="language-r">                          header = tags$p(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            setNames(list(x), name)</pre>
+                      <pre class="language-r">                          footer = tags$p(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">                          ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">29</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            unlist(lapply(names(x), function(name) flatten_nested(x[[name]], name)))</pre>
+                      <pre class="language-r">      private$data &lt;- data</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">30</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">      private$modules &lt;- modules</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">31</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      private$filter &lt;- filter</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">32</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        flatten_nested(filtered_data_list)</pre>
+                      <pre class="language-r">      app &lt;- init(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">33</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        modules = modules,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">35</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Create mapping of filters to modules in matrix form (presented as data.frame).</pre>
+                      <pre class="language-r">        filter = filter,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Modules get NAs for filters that cannot be set for them.</pre>
+                      <pre class="language-r">        title = title,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="num">37</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mapping_matrix &lt;- reactive({</pre>
+                      <pre class="language-r">        header = header,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="num">38</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      state_ids_global &lt;- vapply(slices_global(), `[[`, character(1L), "id")</pre>
+                      <pre class="language-r">        footer = footer</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mapping_smooth &lt;- lapply(filtered_data_list, function(x) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">40</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        state_ids_local &lt;- vapply(x$get_filter_state(), `[[`, character(1L), "id")</pre>
+                      <pre class="language-r">      suppressWarnings(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">41</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        state_ids_allowed &lt;- vapply(x$get_available_teal_slices()(), `[[`, character(1L), "id")</pre>
+                      <pre class="language-r">        super$initialize(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">42</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        states_active &lt;- state_ids_global %in% state_ids_local</pre>
+                      <pre class="language-r">          shinyApp(app$ui, app$server),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">43</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ifelse(state_ids_global %in% state_ids_allowed, states_active, NA)</pre>
+                      <pre class="language-r">          name = "teal",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">44</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">          variant = platform_variant(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          ...</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      as.data.frame(mapping_smooth, row.names = state_ids_global, check.names = FALSE)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="num">49</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    output$slices_table &lt;- renderTable(</pre>
+                      <pre class="language-r">      private$set_active_ns()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = {</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Display logical values as UTF characters.</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mm &lt;- mapping_matrix()</pre>
+                      <pre class="language-r">    #' Check if the app has shiny errors. This checks for global shiny errors.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mm[] &lt;- lapply(mm, ifelse, yes = intToUtf8(9989), no = intToUtf8(10060))</pre>
+                      <pre class="language-r">    #' Note that any shiny errors dependent on shiny server render will only be captured after the teal module tab</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mm[] &lt;- lapply(mm, function(x) ifelse(is.na(x), intToUtf8(128306), x))</pre>
+                      <pre class="language-r">    #' is visited because shiny will not trigger server computations when the tab is invisible.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is_module_specific) colnames(mm) &lt;- "Global Filters"</pre>
+                      <pre class="language-r">    #' So, navigate to the module tab you want to test before calling this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Although, this catches errors hidden in the other module tabs if they are already rendered.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Display placeholder if no filters defined.</pre>
+                      <pre class="language-r">    expect_no_shiny_error = function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (nrow(mm) == 0L) {</pre>
+                      <pre class="language-r">      testthat::expect_null(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          mm &lt;- data.frame(`Filter manager` = "No filters specified.", check.names = FALSE)</pre>
+                      <pre class="language-r">        self$get_html(".shiny-output-error:not(.shiny-output-error-validation)"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rownames(mm) &lt;- ""</pre>
+                      <pre class="language-r">        info = "Shiny error is observed"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Report Previewer will not be displayed.</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mm[names(mm) != "Report previewer"]</pre>
+                      <pre class="language-r">    #' Check if the app has no validation errors. This checks for global shiny validation errors.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">    expect_no_validation_error = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">66</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      align = paste(c("l", rep("c", sum(names(filtered_data_list) != "Report previewer"))), collapse = ""),</pre>
+                      <pre class="language-r">      testthat::expect_null(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">67</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rownames = TRUE</pre>
+                      <pre class="language-r">        self$get_html(".shiny-output-error-validation"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">68</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        info = "No validation error is observed"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Create list of module calls.</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules_out &lt;- lapply(names(filtered_data_list), function(module_name) {</pre>
+                      <pre class="language-r">    #' Check if the app has validation errors. This checks for global shiny validation errors.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filter_manager_module_srv(</pre>
+                      <pre class="language-r">    expect_validation_error = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">74</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = module_name,</pre>
+                      <pre class="language-r">      testthat::expect_false(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">75</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        module_fd = filtered_data_list[[module_name]],</pre>
+                      <pre class="language-r">        is.null(self$get_html(".shiny-output-error-validation")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">76</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        slices_global = slices_global</pre>
+                      <pre class="language-r">        info = "Validation error is not observed"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Call snapshot manager.</pre>
+                      <pre class="language-r">    #' Set the input in the `teal` app.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    snapshot_manager_srv("snapshot_manager", slices_global, mapping_matrix, filtered_data_list)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @param input_id (character) The shiny input id with it's complete name space.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    modules_out # returned for testing purpose</pre>
+                      <pre class="language-r">    #' @param value The value to set the input to.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    #' @param ... Additional arguments to be passed to `shinytest2::AppDriver$set_inputs`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Module specific filter manager</pre>
+                      <pre class="language-r">    set_input = function(input_id, value, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">158</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">159</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Tracks filter states in a single module.</pre>
+                      <pre class="language-r">        self$set_inputs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        c(setNames(list(value), input_id), list(...))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This module tracks the state of a single `FilteredData` object and global `teal_slices`</pre>
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">13<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and updates both objects as necessary. Filter states added in different modules</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Filter states added any individual module are added to global `teal_slices`</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and from there become available in other modules</pre>
+                      <pre class="language-r">    #' Navigate the teal tabs in the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' by setting `private$available_teal_slices` in each `FilteredData`.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param tabs (character) Labels of tabs to navigate to. The order of the tabs is important,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id (`character(1)`)</pre>
+                      <pre class="language-r">    #' and it should start with the most parent level tab.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `shiny` module id.</pre>
+                      <pre class="language-r">    #' Note: In case the teal tab group has duplicate names, the first tab will be selected,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param module_fd (`FilteredData`)</pre>
+                      <pre class="language-r">    #' If you wish to select the second tab with the same name, use the suffix "_1".</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Object containing the data to be filtered in a single `teal` module.</pre>
+                      <pre class="language-r">    #' If you wish to select the third tab with the same name, use the suffix "_2" and so on.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param slices_global (`reactiveVal`)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stores `teal_slices` with all available filters; allows the following actions:</pre>
+                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - to disable/enable a specific filter in a module</pre>
+                      <pre class="language-r">    navigate_teal_tab = function(tabs) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - to restore saved filter settings</pre>
+                      <pre class="language-r">      checkmate::check_character(tabs, min.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - to save current filter panel settings</pre>
+                      <pre class="language-r">      for (tab in tabs) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `reactive` expression containing the slices active in this module.</pre>
+                      <pre class="language-r">        root &lt;- "root"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        self$set_input(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          sprintf("teal-main_ui-%s-active_tab", root),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">filter_manager_module_srv &lt;- function(id, module_fd, slices_global) {</pre>
+                      <pre class="language-r">          get_unique_labels(tab),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">          wait_ = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Only operate on slices that refer to data sets present in this module.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">113</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    module_fd$set_available_teal_slices(reactive(slices_global()))</pre>
+                      <pre class="language-r">        root &lt;- sprintf("%s-%s", private$modules$label, get_unique_labels(tab))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Track filter state of this module.</pre>
+                      <pre class="language-r">      self$wait_for_idle(timeout = private$idle_timeout)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices_module &lt;- reactive(module_fd$get_filter_state())</pre>
+                      <pre class="language-r">      private$set_active_ns()</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Reactive values for comparing states.</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    previous_slices &lt;- reactiveVal(isolate(slices_module()))</pre>
+                      <pre class="language-r">    #' Get the active shiny name space for different components of the teal app.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices_added &lt;- reactiveVal(NULL)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @return (`list`) The list of active shiny name space of the teal components.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Observe changes in module filter state and trigger appropriate actions.</pre>
+                      <pre class="language-r">    active_ns = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">124</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(slices_module(), ignoreNULL = FALSE, {</pre>
+                      <pre class="language-r">      if (identical(private$ns$module, character(0))) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">125</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace("filter_manager_srv@1 detecting states deltas in module: { id }.")</pre>
+                      <pre class="language-r">        private$set_active_ns()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      added &lt;- setdiff_teal_slices(slices_module(), slices_global())</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">195</td>
+                    <td class="num">127</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(added)) slices_added(added)</pre>
+                      <pre class="language-r">      private$ns</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      previous_slices(slices_module())</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Get the active shiny name space for interacting with the module content.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observeEvent(slices_added(), ignoreNULL = TRUE, {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">200</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace("filter_manager_srv@2 added filter in module: { id }.")</pre>
+                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # In case the new state has the same id as an existing state, add a suffix to it.</pre>
+                      <pre class="language-r">    active_module_ns = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">202</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      global_ids &lt;- vapply(slices_global(), `[[`, character(1L), "id")</pre>
+                      <pre class="language-r">      if (identical(private$ns$module, character(0))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">203</td>
+                    <td class="num">135</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lapply(</pre>
+                      <pre class="language-r">        private$set_active_ns()</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      private$ns$module</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">204</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        slices_added(),</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">205</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">139</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(slice) {</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (slice$id %in% global_ids) {</pre>
+                      <pre class="language-r">    #' Get the active shiny name space bound with a custom `element` name.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">207</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            slice$id &lt;- utils::tail(make.unique(c(global_ids, slice$id), sep = "_"), 1)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    #' @param element `character(1)` custom element name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component bound with the input `element`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">211</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_global_new &lt;- c(slices_global(), slices_added())</pre>
+                      <pre class="language-r">    active_module_element = function(element) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">212</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_global(slices_global_new)</pre>
+                      <pre class="language-r">      checkmate::assert_string(element)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">213</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_added(NULL)</pre>
+                      <pre class="language-r">      sprintf("#%s-%s", self$active_module_ns(), element)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices_module # returned for testing purpose</pre>
+                      <pre class="language-r">    #' Get the text of the active shiny name space bound with a custom `element` name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    #' @param element `character(1)` the text of the custom element name.</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/teal_slices.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Filter settings for `teal` applications</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @return (`string`) The text of the active shiny name space of the component bound with the input `element`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Specify initial filter states and filtering settings for a `teal` app.</pre>
+                      <pre class="language-r">    active_module_element_text = function(element) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">156</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      checkmate::assert_string(element)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">157</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Produces a `teal_slices` object.</pre>
+                      <pre class="language-r">      self$get_text(self$active_module_element(element))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The `teal_slice` components will specify filter states that will be active when the app starts.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Attributes (created with the named arguments) will configure the way the app applies filters.</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' See argument descriptions for details.</pre>
+                      <pre class="language-r">    #' Get the active shiny name space for interacting with the filter panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal.slice::teal_slices</pre>
+                      <pre class="language-r">    #' @return (`string`) The active shiny name space of the component.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    active_filters_ns = function() {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">50<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      if (identical(private$ns$filter_panel, character(0))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">165</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        private$set_active_ns()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param module_specific (`logical(1)`) optional,</pre>
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">50<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      private$ns$filter_panel</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `FALSE` (default) when one filter panel applied to all modules.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  All filters will be shared by all modules.</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `TRUE` when filter panel module-specific.</pre>
+                      <pre class="language-r">    #' Get the input from the module in the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Modules can have different set of filters specified - see `mapping` argument.</pre>
+                      <pre class="language-r">    #' This function will only access inputs from the name space of the current active teal module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mapping `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' _This is a new feature. Do kindly share your opinions on</pre>
+                      <pre class="language-r">    #' @param input_id (character) The shiny input id to get the value from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [`teal`'s GitHub repository](https://github.com/insightsengineering/teal/)._</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @return The value of the shiny input.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  (named `list`) specifies which filters will be active in which modules on app start.</pre>
+                      <pre class="language-r">    get_active_module_input = function(input_id) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">177</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      checkmate::check_string(input_id)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">178</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      self$get_value(input = sprintf("%s-%s", self$active_module_ns(), input_id))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Elements should contain character vector of `teal_slice` `id`s (see [`teal.slice::teal_slice`]).</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Names of the list should correspond to `teal_module` `label` set in [module()] function.</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `id`s listed under `"global_filters` will be active in all modules.</pre>
+                      <pre class="language-r">    #' Get the output from the module in the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - If missing, all filters will be applied to all modules.</pre>
+                      <pre class="language-r">    #' This function will only access outputs from the name space of the current active teal module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - If empty list, all filters will be available to all modules but will start inactive.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - If `module_specific` is `FALSE`, only `global_filters` will be active on start.</pre>
+                      <pre class="language-r">    #' @param output_id (character) The shiny output id to get the value from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param app_id (`character(1)`)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  For internal use only, do not set manually.</pre>
+                      <pre class="language-r">    #' @return The value of the shiny output.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Added by `init` so that a `teal_slices` can be matched to the app in which it was used.</pre>
+                      <pre class="language-r">    get_active_module_output = function(output_id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Used for verifying snapshots uploaded from file. See `snapshot`.</pre>
+                      <pre class="language-r">      checkmate::check_string(output_id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      self$get_value(output = sprintf("%s-%s", self$active_module_ns(), output_id))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`list`) of lists to convert to `teal_slices`</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    #' Set the input in the module in the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A `teal_slices` object.</pre>
+                      <pre class="language-r">    #' This function will only set inputs in the name space of the current active teal module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [`teal.slice::teal_slices`], [`teal.slice::teal_slice`], [slices_store()]</pre>
+                      <pre class="language-r">    #' @param input_id (character) The shiny input id to get the value from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param value The value to set the input to.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter &lt;- teal_slices(</pre>
+                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Species", id = "species"),</pre>
+                      <pre class="language-r">    set_module_input = function(input_id, value) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">200</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Sepal.Length", id = "sepal_length"),</pre>
+                      <pre class="language-r">      checkmate::check_string(input_id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">201</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
+                      <pre class="language-r">      checkmate::check_string(value)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">202</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "iris", id = "long_petals", title = "Long petals", expr = "Petal.Length &gt; 5"</pre>
+                      <pre class="language-r">      self$set_input(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">203</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">        sprintf("%s-%s", self$active_module_ns(), input_id),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">204</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "mtcars", varname = "mpg", id = "mtcars_mpg"),</pre>
+                      <pre class="language-r">        value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mapping = list(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">206</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module1 = c("species", "sepal_length"),</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module2 = c("mtcars_mpg"),</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     global_filters = "long_petals"</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    #' Get the active datasets that can be accessed via the filter panel of the current active teal module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    get_active_filter_vars = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      displayed_datasets_index &lt;- self$get_js(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app &lt;- init(</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = teal_data(iris = iris, mtcars = mtcars),</pre>
+                      <pre class="language-r">          "Array.from(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">214</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = list(</pre>
+                      <pre class="language-r">              document.querySelectorAll(\"#%s-active-filter_active_vars_contents &gt; span\")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module("module1"),</pre>
+                      <pre class="language-r">          ).map((el) =&gt; window.getComputedStyle(el).display != \"none\");",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">216</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     module("module2")</pre>
+                      <pre class="language-r">          self$active_filters_ns()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter = filter</pre>
+                      <pre class="language-r">      ) |&gt; unlist()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      available_datasets &lt;- self$get_text(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app$ui, app$server)</pre>
+                      <pre class="language-r">          "#%s-active-filter_active_vars_contents .filter_panel_dataname",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">          self$active_filters_ns()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">teal_slices &lt;- function(...,</pre>
+                      <pre class="language-r">      available_datasets[displayed_datasets_index]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        exclude_varnames = NULL,</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        include_varnames = NULL,</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        count_type = NULL,</pre>
+                      <pre class="language-r">    #' Get the active filter variables from a dataset in the `teal` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        allow_add = TRUE,</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        module_specific = FALSE,</pre>
+                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to get the filter variables from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        mapping,</pre>
+                      <pre class="language-r">    #' If `NULL`, the filter variables for all the datasets will be returned in a list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        app_id = NULL) {</pre>
+                      <pre class="language-r">    get_active_data_filters = function(dataset_name = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">115<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shiny::isolate({</pre>
+                      <pre class="language-r">      checkmate::check_string(dataset_name, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">115<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_flag(allow_add)</pre>
+                      <pre class="language-r">      datasets &lt;- self$get_active_filter_vars()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">115<em>x</em></td>
+                    <td class="num">236</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_flag(module_specific)</pre>
+                      <pre class="language-r">      checkmate::assert_subset(dataset_name, datasets)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">54<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!missing(mapping)) checkmate::assert_list(mapping, types = c("character", "NULL"), names = "named")</pre>
+                      <pre class="language-r">      active_filters &lt;- lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_string(app_id, null.ok = TRUE)</pre>
+                      <pre class="language-r">        datasets,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">240</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices &lt;- list(...)</pre>
+                      <pre class="language-r">          self$get_text(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">241</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_slice_id &lt;- vapply(slices, `[[`, character(1L), "id")</pre>
+                      <pre class="language-r">            sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              "#%s-active-%s-filters .filter-card-varname",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">243</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (missing(mapping)) {</pre>
+                      <pre class="language-r">              self$active_filters_ns(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">61<em>x</em></td>
+                    <td class="num">244</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mapping &lt;- list(global_filters = all_slice_id)</pre>
+                      <pre class="language-r">              x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">112<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">246</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!module_specific) {</pre>
+                      <pre class="language-r">          ) |&gt;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">101<em>x</em></td>
+                    <td class="num">247</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mapping[setdiff(names(mapping), "global_filters")] &lt;- NULL</pre>
+                      <pre class="language-r">            gsub(pattern = "\\s", replacement = "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">112<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    failed_slice_id &lt;- setdiff(unlist(mapping), all_slice_id)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">112<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(failed_slice_id)) {</pre>
+                      <pre class="language-r">      names(active_filters) &lt;- datasets</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">251</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop(sprintf(</pre>
+                      <pre class="language-r">      if (!is.null(dataset_name)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">252</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Filters in mapping don't match any available filter.\n %s not in %s",</pre>
+                      <pre class="language-r">        active_filters &lt;- active_filters[[dataset_name]]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">253</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        toString(failed_slice_id),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">254</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        toString(all_slice_id)</pre>
+                      <pre class="language-r">      active_filters</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">111<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    tss &lt;- teal.slice::teal_slices(</pre>
+                      <pre class="language-r">    #' Get the active filter values from the active filter selection of dataset from the filter panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ...,</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">111<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">259</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      exclude_varnames = exclude_varnames,</pre>
+                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to get the filter values from.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">111<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">260</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      include_varnames = include_varnames,</pre>
+                      <pre class="language-r">    #' @param var_name (character) The name of the variable to get the filter values from.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">111<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      count_type = count_type,</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">111<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">262</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      allow_add = allow_add</pre>
+                      <pre class="language-r">    #' @return The value of the active filter selection.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    get_active_filter_selection = function(dataset_name, var_name) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">111<em>x</em></td>
+                    <td class="num">264</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attr(tss, "mapping") &lt;- mapping</pre>
+                      <pre class="language-r">      checkmate::check_string(dataset_name)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">111<em>x</em></td>
+                    <td class="num">265</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attr(tss, "module_specific") &lt;- module_specific</pre>
+                      <pre class="language-r">      checkmate::check_string(var_name)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">111<em>x</em></td>
+                    <td class="num">266</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attr(tss, "app_id") &lt;- app_id</pre>
+                      <pre class="language-r">      input_id_prefix &lt;- sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">111<em>x</em></td>
+                    <td class="num">267</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class(tss) &lt;- c("modules_teal_slices", class(tss))</pre>
+                      <pre class="language-r">        "%s-active-%s-filter-%s_%s-inputs",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">111<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    tss</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                    <td class="num">268</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        self$active_filters_ns(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                      <pre class="language-r">        dataset_name,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slices</pre>
+                      <pre class="language-r">        dataset_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        var_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">as.teal_slices &lt;- function(x) { # nolint: object_name.</pre>
+                      <pre class="language-r">      # Find the type of filter (categorical or range)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">275</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(x)</pre>
+                      <pre class="language-r">      supported_suffix &lt;- c("selection", "selection_manual")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">28<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  lapply(x, checkmate::assert_list, names = "named", .var.name = "list element")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                    <td class="num">276</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      for (suffix in supported_suffix) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">277</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attrs &lt;- attributes(unclass(x))</pre>
+                      <pre class="language-r">        if (!is.null(self$get_html(sprintf("#%s-%s", input_id_prefix, suffix)))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">278</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ans &lt;- lapply(x, function(x) if (is.teal_slice(x)) x else as.teal_slice(x))</pre>
+                      <pre class="language-r">          return(self$get_value(input = sprintf("%s-%s", input_id_prefix, suffix)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(teal_slices, c(ans, attrs))</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">282</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      NULL # If there are not any supported filters</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slices</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    #' Add a new variable from the dataset to be filtered.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">c.teal_slices &lt;- function(...) {</pre>
+                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to add the filter variable to.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">137</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">288</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- list(...)</pre>
+                      <pre class="language-r">    #' @param var_name (character) The name of the variable to add to the filter panel.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">138</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">289</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(all(vapply(x, is.teal_slices, logical(1L))), .var.name = "all arguments are teal_slices")</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">140</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">291</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_attributes &lt;- lapply(x, attributes)</pre>
+                      <pre class="language-r">    add_filter_var = function(dataset_name, var_name) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">141</td>
+                    <td class="num">292</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_attributes &lt;- coalesce_r(all_attributes)</pre>
+                      <pre class="language-r">      checkmate::check_string(dataset_name)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">142</td>
+                    <td class="num">293</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_attributes &lt;- all_attributes[names(all_attributes) != "class"]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      checkmate::check_string(var_name)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">144</td>
+                    <td class="num">294</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(</pre>
+                      <pre class="language-r">      self$set_input(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">145</td>
+                    <td class="num">295</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal_slices,</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">146</td>
+                    <td class="num">296</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(</pre>
+                      <pre class="language-r">          "%s-add-%s-filter-var_to_add",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">147</td>
+                    <td class="num">297</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      unique(unlist(x, recursive = FALSE)),</pre>
+                      <pre class="language-r">          self$active_filters_ns(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">148</td>
+                    <td class="num">298</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_attributes</pre>
+                      <pre class="language-r">          dataset_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">300</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        var_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">302</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Deep copy `teal_slices`</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' Remove an active filter variable of a dataset from the active filter variables panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' it's important to create a new copy of `teal_slices` when</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' starting a new `shiny` session. Otherwise, object will be shared</pre>
+                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to remove the filter variable from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' by multiple users as it is created in global environment before</pre>
+                      <pre class="language-r">    #' If `NULL`, all the filter variables will be removed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `shiny` session starts.</pre>
+                      <pre class="language-r">    #' @param var_name (character) The name of the variable to remove from the filter panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filter (`teal_slices`)</pre>
+                      <pre class="language-r">    #' If `NULL`, all the filter variables of the dataset will be removed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `teal_slices`</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">deep_copy_filter &lt;- function(filter) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">19<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">19<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  shiny::isolate({</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">19<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    filter_copy &lt;- lapply(filter, function(slice) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">20<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      teal.slice::as.teal_slice(as.list(slice))</pre>
+                      <pre class="language-r">    remove_filter_var = function(dataset_name = NULL, var_name = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">314</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      checkmate::check_string(dataset_name, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">315</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attributes(filter_copy) &lt;- attributes(filter)</pre>
+                      <pre class="language-r">      checkmate::check_string(var_name, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">316</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter_copy</pre>
+                      <pre class="language-r">      if (is.null(dataset_name)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">317</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">        remove_selector &lt;- sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">318</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          "#%s-active-remove_all_filters",</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/teal_slices-store.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">319</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Store and restore `teal_slices` object</pre>
+                      <pre class="language-r">          self$active_filters_ns()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">321</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Functions that write a `teal_slices` object to a file in the `JSON` format,</pre>
+                      <pre class="language-r">      } else if (is.null(var_name)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">322</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and also restore the object from disk.</pre>
+                      <pre class="language-r">        remove_selector &lt;- sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">323</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          "#%s-active-%s-remove_filters",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">324</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Date and date time objects are stored in the following formats:</pre>
+                      <pre class="language-r">          self$active_filters_ns(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">325</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          dataset_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `Date` class is converted to the `"ISO8601"` standard (`YYYY-MM-DD`).</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `POSIX*t` classes are converted to character by using</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">328</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `format.POSIX*t(usetz = TRUE, tz = "UTC")` (`YYYY-MM-DD HH:MM:SS UTC`, where</pre>
+                      <pre class="language-r">        remove_selector &lt;- sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">329</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `UTC` is the `Coordinated Universal Time` timezone short-code).</pre>
+                      <pre class="language-r">          "#%s-active-%s-filter-%s_%s-remove",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">330</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          self$active_filters_ns(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">331</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This format is assumed during `slices_restore`. All `POSIX*t` objects in</pre>
+                      <pre class="language-r">          dataset_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">332</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `selected` or `choices` fields of `teal_slice` objects are always printed in</pre>
+                      <pre class="language-r">          dataset_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">333</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `UTC` timezone as well.</pre>
+                      <pre class="language-r">          var_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tss (`teal_slices`) object to be stored.</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">336</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param file (`character(1)`) file path where `teal_slices` object will be</pre>
+                      <pre class="language-r">      self$click(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">337</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' saved and restored. The file extension should be `".json"`.</pre>
+                      <pre class="language-r">        selector = remove_selector</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">339</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `slices_store` returns `NULL`, invisibly.</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [teal_slices()]</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' Set the active filter values for a variable of a dataset in the active filter variable panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param dataset_name (character) The name of the dataset to set the filter value for.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">slices_store &lt;- function(tss, file) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(tss, "teal_slices")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_path_for_output(file, overwrite = TRUE, extension = "json")</pre>
+                      <pre class="language-r">    #' @param var_name (character) The name of the variable to set the filter value for.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  cat(format(tss, trim_lines = FALSE), "\n", file = file)</pre>
+                      <pre class="language-r">    #' @param input The value to set the filter to.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    #' @param type (character) The type of the filter to get the value from. Default is `categorical`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname slices_store</pre>
+                      <pre class="language-r">    #' @return The `TealAppDriver` object invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `slices_restore` returns a `teal_slices` object restored from the file.</pre>
+                      <pre class="language-r">    set_active_filter_selection = function(dataset_name, var_name, input) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      checkmate::check_string(dataset_name)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">352</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">slices_restore &lt;- function(file) {</pre>
+                      <pre class="language-r">      checkmate::check_string(var_name)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">353</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_file_exists(file, access = "r", extension = "json")</pre>
+                      <pre class="language-r">      checkmate::check_string(input)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">355</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tss_json &lt;- jsonlite::fromJSON(file, simplifyDataFrame = FALSE)</pre>
+                      <pre class="language-r">      input_id_prefix &lt;- sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">356</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tss_json$slices &lt;-</pre>
+                      <pre class="language-r">        "%s-active-%s-filter-%s_%s-inputs",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">357</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(tss_json$slices, function(slice) {</pre>
+                      <pre class="language-r">        self$active_filters_ns(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">358</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (field in c("selected", "choices")) {</pre>
+                      <pre class="language-r">        dataset_name,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">359</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.null(slice[[field]])) {</pre>
+                      <pre class="language-r">        dataset_name,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">360</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (length(slice[[field]]) &gt; 0) {</pre>
+                      <pre class="language-r">        var_name</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">361</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            date_partial_regex &lt;- "^[0-9]{4}-[0-9]{2}-[0-9]{2}"</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">362</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            time_stamp_regex &lt;- paste0(date_partial_regex, "\\s[0-9]{2}:[0-9]{2}:[0-9]{2}\\sUTC$")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # Find the type of filter (based on filter panel)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">364</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            slice[[field]] &lt;-</pre>
+                      <pre class="language-r">      supported_suffix &lt;- c("selection", "selection_manual")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">365</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (all(grepl(paste0(date_partial_regex, "$"), slice[[field]]))) {</pre>
+                      <pre class="language-r">      slices_suffix &lt;- supported_suffix[</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">51</td>
+                    <td class="num">366</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                as.Date(slice[[field]])</pre>
+                      <pre class="language-r">        match(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">367</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              } else if (all(grepl(time_stamp_regex, slice[[field]]))) {</pre>
+                      <pre class="language-r">          TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
+                    <td class="num">368</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                as.POSIXct(slice[[field]], tz = "UTC")</pre>
+                      <pre class="language-r">          vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">369</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              } else {</pre>
+                      <pre class="language-r">            supported_suffix,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
+                    <td class="num">370</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                slice[[field]]</pre>
+                      <pre class="language-r">            function(suffix) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">371</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">              !is.null(self$get_html(sprintf("#%s-%s", input_id_prefix, suffix)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
+                    <td class="num">373</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            slice[[field]] &lt;- character(0)</pre>
+                      <pre class="language-r">            logical(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      ]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">377</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slice</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">      # Generate correct namespace</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">379</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      slices_input_id &lt;- sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">380</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tss_elements &lt;- lapply(tss_json$slices, as.teal_slice)</pre>
+                      <pre class="language-r">        "%s-active-%s-filter-%s_%s-inputs-%s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">381</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        self$active_filters_ns(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">382</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(teal_slices, c(tss_elements, tss_json$attributes))</pre>
+                      <pre class="language-r">        dataset_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">383</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        dataset_name,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/validate_inputs.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">384</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Send input validation messages to output</pre>
+                      <pre class="language-r">        var_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        slices_suffix</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Captures messages from `InputValidator` objects and collates them</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' into one message passed to `validate`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">388</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      if (identical(slices_suffix, "selection_manual")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">389</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `shiny::validate` is used to withhold rendering of an output element until</pre>
+                      <pre class="language-r">        checkmate::assert_numeric(input, len = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">390</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' certain conditions are met and to print a validation message in place</pre>
+                      <pre class="language-r">        self$run_js(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">391</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of the output element.</pre>
+                      <pre class="language-r">          sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">392</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `shinyvalidate::InputValidator` allows to validate input elements</pre>
+                      <pre class="language-r">            "Shiny.setInputValue('%s:sw.numericRange', [%f, %f], {priority: 'event'})",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">393</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and to display specific messages in their respective input widgets.</pre>
+                      <pre class="language-r">            slices_input_id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">394</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `validate_inputs` provides a hybrid solution.</pre>
+                      <pre class="language-r">            input[[1]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">395</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Given an `InputValidator` object, messages corresponding to inputs that fail validation</pre>
+                      <pre class="language-r">            input[[2]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' are extracted and placed in one validation message that is passed to a `validate`/`need` call.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">397</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This way the input `validator` messages are repeated in the output.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">398</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      } else if (identical(slices_suffix, "selection")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">399</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The `...` argument accepts any number of `InputValidator` objects</pre>
+                      <pre class="language-r">        self$set_input(slices_input_id, input)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' or a nested list of such objects.</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">401</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If `validators` are passed directly, all their messages are printed together</pre>
+                      <pre class="language-r">        stop("Filter selection set not supported for this slice.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' under one (optional) header message specified by `header`. If a list is passed,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' messages are grouped by `validator`. The list's names are used as headers</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">404</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for their respective message groups.</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If neither of the nested list elements is named, a header message is taken from `header`.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... either any number of `InputValidator` objects</pre>
+                      <pre class="language-r">    #' Wrapper around `get_html` that passes the output directly to `rvest::read_html`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'            or an optionally named, possibly nested `list` of `InputValidator`</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'            objects, see `Details`</pre>
+                      <pre class="language-r">    #' @param selector `(character(1))` passed to `get_html`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param header (`character(1)`) generic validation message; set to NULL to omit</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @return An XML document.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    get_html_rvest = function(selector) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">413</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Returns NULL if the final validation call passes and a `shiny.silent.error` if it fails.</pre>
+                      <pre class="language-r">      rvest::read_html(self$get_html(selector))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [`shinyvalidate::InputValidator`], [`shiny::validate`]</pre>
+                      <pre class="language-r">    #' Wrapper around `get_url()` method that opens the app in the browser.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">416</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    #' @return Nothing. Opens the underlying teal app in the browser.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">    open_url = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">419</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shinyvalidate)</pre>
+                      <pre class="language-r">      browseURL(self$get_url())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">421</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selectInput("method", "validation method", c("sequential", "combined", "grouped")),</pre>
+                      <pre class="language-r">  # private members ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   sidebarLayout(</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     sidebarPanel(</pre>
+                      <pre class="language-r">    # private attributes ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       selectInput("letter", "select a letter:", c(letters[1:3], LETTERS[4:6])),</pre>
+                      <pre class="language-r">    data = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       selectInput("number", "select a number:", 1:6),</pre>
+                      <pre class="language-r">    modules = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       tags$br(),</pre>
+                      <pre class="language-r">    filter = teal_slices(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       selectInput("color", "select a color:",</pre>
+                      <pre class="language-r">    ns = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         c("black", "indianred2", "springgreen2", "cornflowerblue"),</pre>
+                      <pre class="language-r">      module = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         multiple = TRUE</pre>
+                      <pre class="language-r">      filter_panel = character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       sliderInput("size", "select point size:",</pre>
+                      <pre class="language-r">    idle_timeout = 20000, # 20 seconds</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         min = 0.1, max = 4, value = 0.25</pre>
+                      <pre class="language-r">    load_timeout = 100000, # 100 seconds</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">    # private methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">    set_active_ns = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">436</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     mainPanel(plotOutput("plot"))</pre>
+                      <pre class="language-r">      all_inputs &lt;- self$get_values()$input</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">437</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">      active_tab_inputs &lt;- all_inputs[grepl("-active_tab$", names(all_inputs))]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">439</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      tab_ns &lt;- lapply(names(active_tab_inputs), function(name) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">440</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
+                      <pre class="language-r">        gsub(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">441</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # set up input validation</pre>
+                      <pre class="language-r">          pattern = "-active_tab$",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">442</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv &lt;- InputValidator$new()</pre>
+                      <pre class="language-r">          replacement = sprintf("-%s", active_tab_inputs[[name]]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">443</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv$add_rule("letter", sv_in_set(LETTERS, "choose a capital letter"))</pre>
+                      <pre class="language-r">          name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv$add_rule("number", function(x) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">445</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     if (as.integer(x) %% 2L == 1L) "choose an even number"</pre>
+                      <pre class="language-r">      }) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">446</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">        unlist()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">447</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv$enable()</pre>
+                      <pre class="language-r">      active_ns &lt;- tab_ns[1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">448</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # more input validation</pre>
+                      <pre class="language-r">      if (length(tab_ns) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">449</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv_par &lt;- InputValidator$new()</pre>
+                      <pre class="language-r">        for (i in 2:length(tab_ns)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">450</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv_par$add_rule("color", sv_required(message = "choose a color"))</pre>
+                      <pre class="language-r">          next_ns &lt;- tab_ns[i]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">451</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv_par$add_rule("color", function(x) {</pre>
+                      <pre class="language-r">          if (grepl(pattern = active_ns, next_ns)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">452</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     if (length(x) &gt; 1L) "choose only one color"</pre>
+                      <pre class="language-r">            active_ns &lt;- next_ns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">453</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">454</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv_par$add_rule(</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "size",</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">456</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     sv_between(</pre>
+                      <pre class="language-r">      private$ns$module &lt;- sprintf("%s-%s", active_ns, "module")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       left = 0.5, right = 3,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">458</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       message_fmt = "choose a value between {left} and {right}"</pre>
+                      <pre class="language-r">      component &lt;- "filter_panel"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">459</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">      if (!is.null(self$get_html(sprintf("#teal-main_ui-%s", component)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">460</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">        private$ns[[component]] &lt;- sprintf("teal-main_ui-%s", component)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">461</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iv_par$enable()</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">462</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        private$ns[[component]] &lt;- sprintf("%s-module_%s", active_ns, component)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">463</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$plot &lt;- renderPlot({</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     # validate output</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">465</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     switch(input[["method"]],</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">466</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "sequential" = {</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/validate_inputs.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         validate_inputs(iv)</pre>
+                      <pre class="language-r">#' Send input validation messages to output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         validate_inputs(iv_par, header = "Set proper graphical parameters")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       },</pre>
+                      <pre class="language-r">#' Captures messages from `InputValidator` objects and collates them</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "combined" = validate_inputs(iv, iv_par),</pre>
+                      <pre class="language-r">#' into one message passed to `validate`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "grouped" = validate_inputs(list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         "Some inputs require attention" = iv,</pre>
+                      <pre class="language-r">#' `shiny::validate` is used to withhold rendering of an output element until</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         "Set proper graphical parameters" = iv_par</pre>
+                      <pre class="language-r">#' certain conditions are met and to print a validation message in place</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ))</pre>
+                      <pre class="language-r">#' of the output element.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' `shinyvalidate::InputValidator` allows to validate input elements</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' and to display specific messages in their respective input widgets.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     plot(faithful$eruptions ~ faithful$waiting,</pre>
+                      <pre class="language-r">#' `validate_inputs` provides a hybrid solution.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       las = 1, pch = 16,</pre>
+                      <pre class="language-r">#' Given an `InputValidator` object, messages corresponding to inputs that fail validation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       col = input[["color"]], cex = input[["size"]]</pre>
+                      <pre class="language-r">#' are extracted and placed in one validation message that is passed to a `validate`/`need` call.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' This way the input `validator` messages are repeated in the output.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' The `...` argument accepts any number of `InputValidator` objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' or a nested list of such objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#' If `validators` are passed directly, all their messages are printed together</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">#' under one (optional) header message specified by `header`. If a list is passed,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' messages are grouped by `validator`. The list's names are used as headers</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' for their respective message groups.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' If neither of the nested list elements is named, a header message is taken from `header`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validate_inputs &lt;- function(..., header = "Some inputs require attention") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">36<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  dots &lt;- list(...)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is_validators(dots)) stop("validate_inputs accepts validators or a list thereof")</pre>
+                      <pre class="language-r">#' @param ... either any number of `InputValidator` objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">34<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  messages &lt;- extract_validator(dots, header)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">34<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  failings &lt;- if (!any_names(dots)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">29<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    add_header(messages, header)</pre>
+                      <pre class="language-r">#'            or an optionally named, possibly nested `list` of `InputValidator`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    unlist(messages)</pre>
+                      <pre class="language-r">#'            objects, see `Details`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param header (`character(1)`) generic validation message; set to NULL to omit</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">34<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  shiny::validate(shiny::need(is.null(failings), failings))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Returns NULL if the final validation call passes and a `shiny.silent.error` if it fails.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">### internal functions</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @seealso [`shinyvalidate::InputValidator`], [`shiny::validate`]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># recursive object type test</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># returns logical of length 1</pre>
+                      <pre class="language-r">#' library(shinyvalidate)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">is_validators &lt;- function(x) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">118<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all(if (is.list(x)) unlist(lapply(x, is_validators)) else inherits(x, "InputValidator"))</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   selectInput("method", "validation method", c("sequential", "combined", "grouped")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   sidebarLayout(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#'     sidebarPanel(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'       selectInput("letter", "select a letter:", c(letters[1:3], LETTERS[4:6])),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># test if an InputValidator object is enabled</pre>
+                      <pre class="language-r">#'       selectInput("number", "select a number:", 1:6),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># returns logical of length 1</pre>
+                      <pre class="language-r">#'       tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># official method requested at https://github.com/rstudio/shinyvalidate/issues/64</pre>
+                      <pre class="language-r">#'       selectInput("color", "select a color:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validator_enabled &lt;- function(x) {</pre>
+                      <pre class="language-r">#'         c("black", "indianred2", "springgreen2", "cornflowerblue"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x$.__enclos_env__$private$enabled</pre>
+                      <pre class="language-r">#'         multiple = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       sliderInput("size", "select point size:",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Recursively extract messages from validator list</pre>
+                      <pre class="language-r">#'         min = 0.1, max = 4, value = 0.25</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A character vector or a list of character vectors, possibly nested and named.</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'     mainPanel(plotOutput("plot"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">extract_validator &lt;- function(iv, header) {</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">113<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(iv, "InputValidator")) {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    add_header(gather_messages(iv), header)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(names(iv))) names(iv) &lt;- rep("", length(iv))</pre>
+                      <pre class="language-r">#'   # set up input validation</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mapply(extract_validator, iv = iv, header = names(iv), SIMPLIFY = FALSE)</pre>
+                      <pre class="language-r">#'   iv &lt;- InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   iv$add_rule("letter", sv_in_set(LETTERS, "choose a capital letter"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   iv$add_rule("number", function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     if (as.integer(x) %% 2L == 1L) "choose an even number"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Collate failing messages from validator.</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `list`</pre>
+                      <pre class="language-r">#'   iv$enable()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#'   # more input validation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   iv_par &lt;- InputValidator$new()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">gather_messages &lt;- function(iv) {</pre>
+                      <pre class="language-r">#'   iv_par$add_rule("color", sv_required(message = "choose a color"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (validator_enabled(iv)) {</pre>
+                      <pre class="language-r">#'   iv_par$add_rule("color", function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    status &lt;- iv$validate()</pre>
+                      <pre class="language-r">#'     if (length(x) &gt; 1L) "choose only one color"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    failing_inputs &lt;- Filter(Negate(is.null), status)</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unique(lapply(failing_inputs, function(x) x[["message"]]))</pre>
+                      <pre class="language-r">#'   iv_par$add_rule(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'     "size",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning("Validator is disabled and will be omitted.")</pre>
+                      <pre class="language-r">#'     sv_between(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list()</pre>
+                      <pre class="language-r">#'       left = 0.5, right = 3,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'       message_fmt = "choose a value between {left} and {right}"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Add optional header to failing messages</pre>
+                      <pre class="language-r">#'   iv_par$enable()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   output$plot &lt;- renderPlot({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">add_header &lt;- function(messages, header = "") {</pre>
+                      <pre class="language-r">#'     # validate output</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ans &lt;- unlist(messages)</pre>
+                      <pre class="language-r">#'     switch(input[["method"]],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(ans) != 0L &amp;&amp; isTRUE(nchar(header) &gt; 0L)) {</pre>
+                      <pre class="language-r">#'       "sequential" = {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">31<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ans &lt;- c(paste0(header, "\n"), ans, "\n")</pre>
+                      <pre class="language-r">#'         validate_inputs(iv)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'         validate_inputs(iv_par, header = "Set proper graphical parameters")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ans</pre>
+                      <pre class="language-r">#'       },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       "combined" = validate_inputs(iv, iv_par),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       "grouped" = validate_inputs(list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Recursively check if the object contains a named list</pre>
+                      <pre class="language-r">#'         "Some inputs require attention" = iv,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#'         "Set proper graphical parameters" = iv_par</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'       ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">any_names &lt;- function(x) {</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">103<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  any(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">103<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.list(x)) {</pre>
+                      <pre class="language-r">#'     plot(faithful$eruptions ~ faithful$waiting,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(names(x)) &amp;&amp; any(names(x) != "")) TRUE else unlist(lapply(x, any_names))</pre>
+                      <pre class="language-r">#'       las = 1, pch = 16,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#'       col = input[["color"]], cex = input[["size"]]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">40<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      FALSE</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/reporter_previewer_module.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a `teal` module for previewing a report</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function wraps [teal.reporter::reporter_previewer_ui()] and</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [teal.reporter::reporter_previewer_srv()] into a `teal_module` to be</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' used in `teal` applications.</pre>
+                      <pre class="language-r">validate_inputs &lt;- function(..., header = "Some inputs require attention") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">36<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  dots &lt;- list(...)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!is_validators(dots)) stop("validate_inputs accepts validators or a list thereof")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">34<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  messages &lt;- extract_validator(dots, header)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">34<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  failings &lt;- if (!any_names(dots)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">29<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    add_header(messages, header)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If you are creating a `teal` application using [init()] then this</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    unlist(messages)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' module will be added to your application automatically if any of your `teal_modules`</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' support report generation.</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">34<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  shiny::validate(shiny::need(is.null(failings), failings))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams teal_modules</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param server_args (named `list`)</pre>
+                      <pre class="language-r">### internal functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Arguments passed to [teal.reporter::reporter_previewer_srv()].</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_module` (extended with `teal_module_previewer` class) containing the `teal.reporter` previewer functionality.</pre>
+                      <pre class="language-r"># recursive object type test</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"># returns logical of length 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">is_validators &lt;- function(x) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">118<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  all(if (is.list(x)) unlist(lapply(x, is_validators)) else inherits(x, "InputValidator"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">reporter_previewer_module &lt;- function(label = "Report previewer", server_args = list()) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">23</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(server_args, names = "named")</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">25</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(all(names(server_args) %in% names(formals(teal.reporter::reporter_previewer_srv))))</pre>
+                      <pre class="language-r"># test if an InputValidator object is enabled</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r"># returns logical of length 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">27</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing reporter_previewer_module")</pre>
+                      <pre class="language-r"># official method requested at https://github.com/rstudio/shinyvalidate/issues/64</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">validator_enabled &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">137</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  srv &lt;- function(id, reporter, ...) {</pre>
+                      <pre class="language-r">  x$.__enclos_env__$private$enabled</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.reporter::reporter_previewer_srv(id, reporter, ...)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Recursively extract messages from validator list</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ui &lt;- function(id, ...) {</pre>
+                      <pre class="language-r">#' @return A character vector or a list of character vectors, possibly nested and named.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">142</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal.reporter::reporter_previewer_ui(id, ...)</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">extract_validator &lt;- function(iv, header) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">145</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module &lt;- module(</pre>
+                      <pre class="language-r">  if (inherits(iv, "InputValidator")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">146</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = "temporary label",</pre>
+                      <pre class="language-r">    add_header(gather_messages(iv), header)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = srv, ui = ui,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">148</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_args = server_args, ui_args = list(), datanames = NULL</pre>
+                      <pre class="language-r">    if (is.null(names(iv))) names(iv) &lt;- rep("", length(iv))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    mapply(extract_validator, iv = iv, header = names(iv), SIMPLIFY = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Module is created with a placeholder label and the label is changed later.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # This is to prevent another module being labeled "Report previewer".</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  class(module) &lt;- c("teal_module_previewer", class(module))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module$label &lt;- label</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module</pre>
+                      <pre class="language-r">#' Collate failing messages from validator.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @return `list`</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/zzz.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.onLoad &lt;- function(libname, pkgname) {</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # adapted from https://github.com/r-lib/devtools/blob/master/R/zzz.R</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">3</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal_default_options &lt;- list(teal.show_js_log = FALSE)</pre>
+                      <pre class="language-r">gather_messages &lt;- function(iv) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (validator_enabled(iv)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">5</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  op &lt;- options()</pre>
+                      <pre class="language-r">    status &lt;- iv$validate()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">6</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  toset &lt;- !(names(teal_default_options) %in% names(op))</pre>
+                      <pre class="language-r">    failing_inputs &lt;- Filter(Negate(is.null), status)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">7</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(toset)) options(teal_default_options[toset])</pre>
+                      <pre class="language-r">    unique(lapply(failing_inputs, function(x) x[["message"]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">9</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  options("shiny.sanitize.errors" = FALSE)</pre>
+                      <pre class="language-r">    warning("Validator is disabled and will be omitted.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    list()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Set up the teal logger instance</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">12</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">166</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.logger::register_logger("teal")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">14</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible()</pre>
+                      <pre class="language-r">#' Add optional header to failing messages</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.onAttach &lt;- function(libname, pkgname) {</pre>
+                      <pre class="language-r">add_header &lt;- function(messages, header = "") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">18</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">172</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  packageStartupMessage(</pre>
+                      <pre class="language-r">  ans &lt;- unlist(messages)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">19</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">173</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "\nYou are using teal version ",</pre>
+                      <pre class="language-r">  if (length(ans) != 0L &amp;&amp; isTRUE(nchar(header) &gt; 0L)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # `system.file` uses the `shim` of `system.file` by `teal`</pre>
+                      <pre class="language-r">    ans &lt;- c(paste0(header, "\n"), ans, "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # we avoid `desc` dependency here to get the version</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">22</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    read.dcf(system.file("DESCRIPTION", package = "teal"))[, "Version"]</pre>
+                      <pre class="language-r">  ans</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Recursively check if the object contains a named list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This one is here because setdiff_teal_slice should not be exported from teal.slice.</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">setdiff_teal_slices &lt;- getFromNamespace("setdiff_teal_slices", "teal.slice")</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This one is here because it is needed by c.teal_slices but we don't want it exported from teal.slice.</pre>
+                      <pre class="language-r">any_names &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">coalesce_r &lt;- getFromNamespace("coalesce_r", "teal.slice")</pre>
+                      <pre class="language-r">  any(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># all *Block objects are private in teal.reporter</pre>
+                      <pre class="language-r">    if (is.list(x)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">RcodeBlock &lt;- getFromNamespace("RcodeBlock", "teal.reporter") # nolint: object_name.</pre>
+                      <pre class="language-r">      if (!is.null(names(x)) &amp;&amp; any(names(x) != "")) TRUE else unlist(lapply(x, any_names))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">40<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># Use non-exported function(s) from teal.code</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This one is here because lang2calls should not be exported from teal.code</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">lang2calls &lt;- getFromNamespace("lang2calls", "teal.code")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                 </tbody>
               </table>
             </div>
-            <div id="R/show_rcode_modal.R" class="hidden">
+            <div id="R/teal_data_module.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Show `R` code modal</pre>
+                      <pre class="language-r">#' Data module for `teal` applications</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -31141,70 +31408,70 @@ <h2>teal coverage - 78.09%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Use the [shiny::showModal()] function to show the `R` code inside.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Create a `teal_data_module` object and evaluate code on it with history tracking.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`character(1)`)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Title of the modal, displayed in the first comment of the `R` code.</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param rcode (`character`)</pre>
+                      <pre class="language-r">#' `teal_data_module` creates a `shiny` module to supply or modify data in a `teal` application.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  vector with `R` code to show inside the modal.</pre>
+                      <pre class="language-r">#' The module allows for running data pre-processing code (creation _and_ some modification) after the app starts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param session (`ShinySession`) optional</pre>
+                      <pre class="language-r">#' The body of the server function will be run in the app rather than in the global environment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `shiny` session object, defaults to [shiny::getDefaultReactiveDomain()].</pre>
+                      <pre class="language-r">#' This means it will be run every time the app starts, so use sparingly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -31218,1534 +31485,1617 @@ <h2>teal coverage - 78.09%</h2>
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @references [shiny::showModal()]</pre>
+                      <pre class="language-r">#' Pass this module instead of a `teal_data` object in a call to [init()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' Note that the server function must always return a `teal_data` object wrapped in a reactive expression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">show_rcode_modal &lt;- function(title = NULL, rcode, session = getDefaultReactiveDomain()) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">17</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rcode &lt;- paste(rcode, collapse = "\n")</pre>
+                      <pre class="language-r">#' See vignette `vignette("data-as-shiny-module", package = "teal")` for more details.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">19</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- session$ns</pre>
+                      <pre class="language-r">#' @param ui (`function(id)`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">20</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  showModal(modalDialog(</pre>
+                      <pre class="language-r">#'  `shiny` module UI function; must only take `id` argument</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">21</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tagList(</pre>
+                      <pre class="language-r">#' @param server (`function(id)`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">22</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">#'  `shiny` module server function; must only take `id` argument;</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">23</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        actionButton(ns("copyRCode"), "Copy to Clipboard", `data-clipboard-target` = paste0("#", ns("r_code"))),</pre>
+                      <pre class="language-r">#'  must return reactive expression containing `teal_data` object</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">24</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        modalButton("Dismiss"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">25</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        style = "mb-4"</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#' `teal_data_module` returns an object of class `teal_data_module`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">27</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(tags$pre(id = ns("r_code"), rcode)),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">29</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    title = title,</pre>
+                      <pre class="language-r">#' tdm &lt;- teal_data_module(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">30</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    footer = tagList(</pre>
+                      <pre class="language-r">#'   ui = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">31</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      actionButton(ns("copyRCode"), "Copy to Clipboard", `data-clipboard-target` = paste0("#", ns("r_code"))),</pre>
+                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">32</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      modalButton("Dismiss")</pre>
+                      <pre class="language-r">#'     actionButton(ns("submit"), label = "Load data")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'   },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">34</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    size = "l",</pre>
+                      <pre class="language-r">#'   server = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">35</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    easyClose = TRUE</pre>
+                      <pre class="language-r">#'     moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">#'       eventReactive(input$submit, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'         data &lt;- within(</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/teal_data_module-within.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Evaluate expression on `teal_data_module`</pre>
+                      <pre class="language-r">#'           teal_data(),</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'           {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'             dataset1 &lt;- iris</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'             dataset2 &lt;- mtcars</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'           }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">#'         )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `within` is a convenience function for evaluating inline code inside the environment of a `teal_data_module`.</pre>
+                      <pre class="language-r">#'         datanames(data) &lt;- c("dataset1", "dataset2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It accepts only inline expressions (both simple and compound) and allows for injecting values into `expr` through</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the `...` argument: as `name:value` pairs are passed to `...`, `name` in `expr` will be replaced with `value.`</pre>
+                      <pre class="language-r">#'         data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`teal_data_module`) object</pre>
+                      <pre class="language-r">#'     })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param expr (`expression`) to evaluate. Must be inline code. See</pre>
+                      <pre class="language-r">#'   }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... See `Details`.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @name teal_data_module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `within` returns a `teal_data_module` object with a delayed evaluation of `expr` when the module is run.</pre>
+                      <pre class="language-r">#' @seealso [`teal.data::teal_data-class`], [teal.code::qenv()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' within(tdm, dataset1 &lt;- subset(dataset1, Species == "virginica"))</pre>
+                      <pre class="language-r">teal_data_module &lt;- function(ui, server) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_function(ui, args = "id", nargs = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use additional parameter for expression value substitution.</pre>
+                      <pre class="language-r">  checkmate::assert_function(server, args = "id", nargs = 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">34<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  structure(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">34<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    list(ui = ui, server = server),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">34<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    class = "teal_data_module"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' valid_species &lt;- "versicolor"</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' within(tdm, dataset1 &lt;- subset(dataset1, Species %in% species), species = valid_species)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/teal_data_module-eval_code.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @include teal_data_module.R</pre>
+                      <pre class="language-r">setOldClass("teal_data_module")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name within</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_data_module</pre>
+                      <pre class="language-r">#' Evaluate code on `teal_data_module`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' `eval_code` evaluates given code in the environment of the `teal_data` object created by the `teal_data_module`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">within.teal_data_module &lt;- function(data, expr, ...) {</pre>
+                      <pre class="language-r">#' The code is added to the `@code` slot of the `teal_data`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  expr &lt;- substitute(expr)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extras &lt;- list(...)</pre>
+                      <pre class="language-r">#' @param object (`teal_data_module`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams teal.code::eval_code</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add braces for consistency.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!identical(as.list(expr)[[1L]], as.symbol("{"))) {</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expr &lt;- call("{", expr)</pre>
+                      <pre class="language-r">#' `eval_code` returns a `teal_data_module` object with a delayed evaluation of `code` when the module is run.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  calls &lt;- as.list(expr)[-1]</pre>
+                      <pre class="language-r">#' eval_code(tdm, "dataset1 &lt;- subset(dataset1, Species == 'virginica')")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Inject extra values into expressions.</pre>
+                      <pre class="language-r">#' @include teal_data_module.R</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  calls &lt;- lapply(calls, function(x) do.call(substitute, list(x, env = extras)))</pre>
+                      <pre class="language-r">#' @name eval_code</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname teal_data_module</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  eval_code(object = data, code = as.expression(calls))</pre>
+                      <pre class="language-r">#' @aliases eval_code,teal_data_module,character-method</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @aliases eval_code,teal_data_module,language-method</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/landing_popup_module.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Landing popup module</pre>
+                      <pre class="language-r">#' @aliases eval_code,teal_data_module,expression-method</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Creates a landing welcome popup for `teal` applications.</pre>
+                      <pre class="language-r">#' @importFrom methods setMethod</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @importMethodsFrom teal.code eval_code</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This module is used to display a popup dialog when the application starts.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The dialog blocks access to the application and must be closed with a button before the application can be viewed.</pre>
+                      <pre class="language-r">setMethod("eval_code", signature = c("teal_data_module", "character"), function(object, code) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">29</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  teal_data_module(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">30</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label (`character(1)`) Label of the module.</pre>
+                      <pre class="language-r">    ui = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">31</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`character(1)`) Text to be displayed as popup title.</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param content (`character(1)`, `shiny.tag` or `shiny.tag.list`) with the content of the popup.</pre>
+                      <pre class="language-r">      object$ui(ns("mutate_inner"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Passed to `...` of `shiny::modalDialog`. See examples.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param buttons (`shiny.tag` or `shiny.tag.list`) Typically a `modalButton` or `actionButton`. See examples.</pre>
+                      <pre class="language-r">    server = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">35</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `teal_module` (extended with `teal_landing_module` class) to be used in `teal` applications.</pre>
+                      <pre class="language-r">        teal_data_rv &lt;- object$server("mutate_inner")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">        if (!is.reactive(teal_data_rv)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app1 &lt;- init(</pre>
+                      <pre class="language-r">          stop("The `teal_data_module` must return a reactive expression.", call. = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     landing_popup_module(</pre>
+                      <pre class="language-r">        td &lt;- eventReactive(teal_data_rv(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       content = "A place for the welcome message or a disclaimer statement.",</pre>
+                      <pre class="language-r">          {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">44</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       buttons = modalButton("Proceed")</pre>
+                      <pre class="language-r">            if (inherits(teal_data_rv(), c("teal_data", "qenv.error"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">              eval_code(teal_data_rv(), code)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     example_module()</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">              teal_data_rv()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">          },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app1$ui, app1$server)</pre>
+                      <pre class="language-r">          ignoreNULL = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        td</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' app2 &lt;- init(</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = teal_data(iris = iris),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   modules = modules(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     landing_popup_module(</pre>
+                      <pre class="language-r">})</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       title = "Welcome",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       content = tags$b(</pre>
+                      <pre class="language-r">setMethod("eval_code", signature = c("teal_data_module", "language"), function(object, code) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         "A place for the welcome message or a disclaimer statement.",</pre>
+                      <pre class="language-r">  eval_code(object, code = paste(lang2calls(code), collapse = "\n"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         style = "color: red;"</pre>
+                      <pre class="language-r">})</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       buttons = tagList(</pre>
+                      <pre class="language-r">setMethod("eval_code", signature = c("teal_data_module", "expression"), function(object, code) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         modalButton("Proceed"),</pre>
+                      <pre class="language-r">  eval_code(object, code = paste(lang2calls(code), collapse = "\n"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         actionButton("read", "Read more",</pre>
+                      <pre class="language-r">})</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/show_rcode_modal.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           onclick = "window.open('http://google.com', '_blank')"</pre>
+                      <pre class="language-r">#' Show `R` code modal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         actionButton("close", "Reject", onclick = "window.close()")</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">#' Use the [shiny::showModal()] function to show the `R` code inside.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     example_module()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' @param title (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'  Title of the modal, displayed in the first comment of the `R` code.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param rcode (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'  vector with `R` code to show inside the modal.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(app2$ui, app2$server)</pre>
+                      <pre class="language-r">#' @param session (`ShinySession`) optional</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'  `shiny` session object, defaults to [shiny::getDefaultReactiveDomain()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @references [shiny::showModal()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">landing_popup_module &lt;- function(label = "Landing Popup",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 title = NULL,</pre>
+                      <pre class="language-r">show_rcode_modal &lt;- function(title = NULL, rcode, session = getDefaultReactiveDomain()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">17</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 content = NULL,</pre>
+                      <pre class="language-r">  rcode &lt;- paste(rcode, collapse = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 buttons = modalButton("Accept")) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">61</td>
+                    <td class="num">19</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">  ns &lt;- session$ns</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">62</td>
+                    <td class="num">20</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(title, null.ok = TRUE)</pre>
+                      <pre class="language-r">  showModal(modalDialog(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">63</td>
+                    <td class="num">21</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(</pre>
+                      <pre class="language-r">    tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">64</td>
+                    <td class="num">22</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    content,</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">65</td>
+                    <td class="num">23</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    classes = c("character", "shiny.tag", "shiny.tag.list", "html"), null.ok = TRUE</pre>
+                      <pre class="language-r">        actionButton(ns("copyRCode"), "Copy to Clipboard", `data-clipboard-target` = paste0("#", ns("r_code"))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">24</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        modalButton("Dismiss"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">67</td>
+                    <td class="num">25</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(buttons, classes = c("shiny.tag", "shiny.tag.list"))</pre>
+                      <pre class="language-r">        style = "mb-4"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">69</td>
+                    <td class="num">27</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  logger::log_info("Initializing landing_popup_module")</pre>
+                      <pre class="language-r">      tags$div(tags$pre(id = ns("r_code"), rcode)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">71</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  module &lt;- module(</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">72</td>
+                    <td class="num">29</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r">    title = title,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">73</td>
+                    <td class="num">30</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = function(id) {</pre>
+                      <pre class="language-r">    footer = tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">74</td>
+                    <td class="num">31</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">      actionButton(ns("copyRCode"), "Copy to Clipboard", `data-clipboard-target` = paste0("#", ns("r_code"))),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">75</td>
+                    <td class="num">32</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        showModal(</pre>
+                      <pre class="language-r">      modalButton("Dismiss")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">76</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          modalDialog(</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">77</td>
+                    <td class="num">34</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            id = "landingpopup",</pre>
+                      <pre class="language-r">    size = "l",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">78</td>
+                    <td class="num">35</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = title,</pre>
+                      <pre class="language-r">    easyClose = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">79</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            content,</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">80</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            footer = buttons</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/zzz.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">.onLoad &lt;- function(libname, pkgname) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  # adapted from https://github.com/r-lib/devtools/blob/master/R/zzz.R</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">3</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">  teal_default_options &lt;- list(teal.show_js_log = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">5</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  op &lt;- options()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">86</td>
+                    <td class="num">6</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  class(module) &lt;- c("teal_module_landing", class(module))</pre>
+                      <pre class="language-r">  toset &lt;- !(names(teal_default_options) %in% names(op))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">87</td>
+                    <td class="num">7</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  module</pre>
+                      <pre class="language-r">  if (any(toset)) options(teal_default_options[toset])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">9</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  options("shiny.sanitize.errors" = FALSE)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/teal_data_module.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Data module for `teal` applications</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Set up the teal logger instance</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">12</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  teal.logger::register_logger("teal")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">14</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  invisible()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a `teal_data_module` object and evaluate code on it with history tracking.</pre>
+                      <pre class="language-r">.onAttach &lt;- function(libname, pkgname) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">18</td>
+                    <td class="coverage">20<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  packageStartupMessage(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">19</td>
+                    <td class="coverage">20<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    "\nYou are using teal version ",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # `system.file` uses the `shim` of `system.file` by `teal`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">    # we avoid `desc` dependency here to get the version</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">22</td>
+                    <td class="coverage">20<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    read.dcf(system.file("DESCRIPTION", package = "teal"))[, "Version"]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_data_module` creates a `shiny` module to supply or modify data in a `teal` application.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The module allows for running data pre-processing code (creation _and_ some modification) after the app starts.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The body of the server function will be run in the app rather than in the global environment.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This means it will be run every time the app starts, so use sparingly.</pre>
+                      <pre class="language-r"># This one is here because setdiff_teal_slice should not be exported from teal.slice.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">setdiff_teal_slices &lt;- getFromNamespace("setdiff_teal_slices", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Pass this module instead of a `teal_data` object in a call to [init()].</pre>
+                      <pre class="language-r"># This one is here because it is needed by c.teal_slices but we don't want it exported from teal.slice.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Note that the server function must always return a `teal_data` object wrapped in a reactive expression.</pre>
+                      <pre class="language-r">coalesce_r &lt;- getFromNamespace("coalesce_r", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"># all *Block objects are private in teal.reporter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' See vignette `vignette("data-as-shiny-module", package = "teal")` for more details.</pre>
+                      <pre class="language-r">RcodeBlock &lt;- getFromNamespace("RcodeBlock", "teal.reporter") # nolint: object_name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ui (`function(id)`)</pre>
+                      <pre class="language-r"># Use non-exported function(s) from teal.code</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `shiny` module UI function; must only take `id` argument</pre>
+                      <pre class="language-r"># This one is here because lang2calls should not be exported from teal.code</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param server (`function(id)`)</pre>
+                      <pre class="language-r">lang2calls &lt;- getFromNamespace("lang2calls", "teal.code")</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/teal_data_module-within.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  `shiny` module server function; must only take `id` argument;</pre>
+                      <pre class="language-r">#' Evaluate expression on `teal_data_module`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  must return reactive expression containing `teal_data` object</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' `within` is a convenience function for evaluating inline code inside the environment of a `teal_data_module`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_data_module` returns an object of class `teal_data_module`.</pre>
+                      <pre class="language-r">#' It accepts only inline expressions (both simple and compound) and allows for injecting values into `expr` through</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' the `...` argument: as `name:value` pairs are passed to `...`, `name` in `expr` will be replaced with `value.`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tdm &lt;- teal_data_module(</pre>
+                      <pre class="language-r">#' @param data (`teal_data_module`) object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ui = function(id) {</pre>
+                      <pre class="language-r">#' @param expr (`expression`) to evaluate. Must be inline code. See</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#' @param ... See `Details`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton(ns("submit"), label = "Load data")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   },</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   server = function(id) {</pre>
+                      <pre class="language-r">#' `within` returns a `teal_data_module` object with a delayed evaluation of `expr` when the module is run.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       eventReactive(input$submit, {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         data &lt;- within(</pre>
+                      <pre class="language-r">#' within(tdm, dataset1 &lt;- subset(dataset1, Species == "virginica"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           teal_data(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           {</pre>
+                      <pre class="language-r">#' # use additional parameter for expression value substitution.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             dataset1 &lt;- iris</pre>
+                      <pre class="language-r">#' valid_species &lt;- "versicolor"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'             dataset2 &lt;- mtcars</pre>
+                      <pre class="language-r">#' within(tdm, dataset1 &lt;- subset(dataset1, Species %in% species), species = valid_species)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'           }</pre>
+                      <pre class="language-r">#' @include teal_data_module.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         )</pre>
+                      <pre class="language-r">#' @name within</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         datanames(data) &lt;- c("dataset1", "dataset2")</pre>
+                      <pre class="language-r">#' @rdname teal_data_module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         data</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     })</pre>
+                      <pre class="language-r">within.teal_data_module &lt;- function(data, expr, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">28</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   }</pre>
+                      <pre class="language-r">  expr &lt;- substitute(expr)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">29</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  extras &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name teal_data_module</pre>
+                      <pre class="language-r">  # Add braces for consistency.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [`teal.data::teal_data-class`], [teal.code::qenv()]</pre>
+                      <pre class="language-r">  if (!identical(as.list(expr)[[1L]], as.symbol("{"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">33</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    expr &lt;- call("{", expr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">teal_data_module &lt;- function(ui, server) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">36</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_function(ui, args = "id", nargs = 1)</pre>
+                      <pre class="language-r">  calls &lt;- as.list(expr)[-1]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_function(server, args = "id", nargs = 1)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">  # Inject extra values into expressions.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">39</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(ui = ui, server = server),</pre>
+                      <pre class="language-r">  calls &lt;- lapply(calls, function(x) do.call(substitute, list(x, env = extras)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "teal_data_module"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  eval_code(object = data, code = as.expression(calls))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>